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