Дан

двумерный массив 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.