Дан
двумерный массив a, размером
(nm). Найти максимальный
элемент в каждой строке матрицы среди
положительных элементов.

Var a:array [1..50,1..50] of integer;
m,n,i,j,k,max:integer;
begin
writeln (Введи количество строк и столбцов);
readln (n,m);
for i:=1 to n do begin
for j:=1 to m do begin
a[i,j]:=random(21)-10;
write (a[i,j]:4);
end;
writeln;
end;
max:=0;
for i:=1 to n do begin
for j:=1 to m do
if a[i,j]>max then max:=a[i,j];
writeln (Максимальный элемент ,i, строки = ,max);
max:=0;
end;
readln;
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.