Паскаль!....)

[YooooO!!!]

Я тут задачу не понимаю..))...я написал саму матрицу nхm

Program pr;
uses crt;
var a:array [1..10,1..10]of integer;
var b:array [1..100]of integer;
n,m,e,j,i,h,t,k,o, max :integer;
begin 
clrscr;
write('введие количество строк');read (m);
write('введите количество столбцов');read (n);
for i:= to m do 
for j:=1 to n do
begin
gotoxy(1,3);write('введите a[',i,',',j,']');
read (a[i,j]);gotoxy(16,3);write('   ');
gotoxy (e+5*j,4+i);write (a[i,j]);
e:=5+e;
if j=n then e:=o;
end;

А дальше надо найти наибольший и наименьший в каждой строке...HElP!!

[kiborrgg]

Сообщение от YooooO!!!

Я тут задачу не понимаю..))...я написал саму матрицу nхm
Program pr;
uses crt;
var a:array [1..10,1..10]of integer;
var b:array [1..100]of integer;
n,m,e,j,i,h,t,k,o, max :integer;
begin
clrscr;
write('введие количество строк');read (m);
write('введите количество столбцов');read (n);
for i:= to m do
for j:=1 to n do
begin
gotoxy(1,3);write('введите a[',i,',',j,']');
read (a[i,j]);gotoxy(16,3);write(' ');
gotoxy (e+5*j,4+i);write (a[i,j]);
e:=5+e;
if j=n then e:=o;
end;
А дальше надо найти наибольший и наименьший в каждой строке...HElP!!

Код программы нужно оформлять спец. кнопочкой # для его читабельности.

[YooooO!!!]

а по сути есть что7!

[kiborrgg]

Сообщение от YooooO!!!

а по сути есть что7!

И все-таки исправьте, правила для всех одинаковы.

for i:=1 to n do
 begin
  max:={минимально-допустимое число в типе};
  min:={максимально-допустимое число в типе};
   for j:=1 to m do
     begin
       if a[i,j]>max then max:=a[i,j];
       if a[i,j]<min then min:=a[i,j];
     end;
  writeln;
  writeln('Min в ',i,' строке=',min,' ',',Max=',max);
 end;

Добавлю:
i - номер строки,
j - номер столбца

[SNUPY]

2 kiborrgg
я бы сделал так

for i:=1 to n do
 begin
  max:=a[i,1];
  min:=a[i,1];
   for j:=2 to m do
     begin
       if a[i,j]>max then max:=a[i,j];
       if a[i,j]<min then min:=a[i,j];
     end;
  writeln;
  writeln('Min в ',i,' строке=',min,' ',',Max=',max);
end;

[kiborrgg]

Сообщение от SNUPY

2 kiborrgg
я бы сделал так

for i:=1 to n do
 begin
  max:=a[i,1];
  min:=a[i,1];
   for j:=2 to m do
     begin
       if a[i,j]>max then max:=a[i,j];
       if a[i,j]<min then min:=a[i,j];
     end;
  writeln;
  writeln('Min в ',i,' строке=',min,' ',',Max=',max);
end;

А это он должен был бы сам сообразить милейший....

[SNUPY]

Виноват. Не сообразил ^__^

[YooooO!!!]

Спасибо БОЛЬШОЕ!