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

Смотри ниже

Объяснение:

rrr-FJ6-Zzh-3xQrrr-FJ6-Zzh-3xQrrr-FJ6-Zzh-3xQrrr-FJ6-Zzh-3xQrrr-FJ6-Zzh-3xQrrr-FJ6-Zzh-3xQrrr-FJ6-Zzh-3xQrrr-FJ6-Zzh-3xQrrr-FJ6-Zzh-3xQrrr-FJ6-Zzh-3xQrrr-FJ6-Zzh-3xQrrr-FJ6-Zzh-3xQrrr-FJ6-Zzh-3xQrrr-FJ6-Zzh-3xQrrr-FJ6-Zzh-3xQrrr-FJ6-Zzh-3xQrrr-FJ6-Zzh-3xQrrr-FJ6-Zzh-3xQrrr-FJ6-Zzh-3xQrrr-FJ6-Zzh-3xQrrr-FJ6-Zzh-3xQrrr-FJ6-Zzh-3xQrrr-FJ6-Zzh-3xQrrr-FJ6-Zzh-3xQrrr-FJ6-Zzh-3xQrrr-FJ6-Zzh-3xQrrr-FJ6-Zzh-3xQrrr-FJ6-Zzh-3xQrrr-FJ6-Zzh-3xQrrr-FJ6-Zzh-3xQrrr-FJ6-Zzh-3xQrrr-FJ6-Zzh-3xQrrr-FJ6-Zzh-3xQrrr-FJ6-Zzh-3xQrrr-FJ6-Zzh-3xQrrr-FJ6-Zzh-3xQrrr-FJ6-Zzh-3xQrrr-FJ6-Zzh-3xQrrr-FJ6-Zzh-3xQrrr-FJ6-Zzh-3xQrrr-FJ6-Zzh-3xQrrr-FJ6-Zzh-3xQrrr-FJ6-Zzh-3xQrrr-FJ6-Zzh-3xQrrr-FJ6-Zzh-3xQrrr-FJ6-Zzh-3xQrrr-FJ6-Zzh-3xQrrr-FJ6-Zzh-3xQrrr-FJ6-Zzh-3xQrrr-FJ6-Zzh-3xQrrr-FJ6-Zzh-3xQrrr-FJ6-Zzh-3xQrrr-FJ6-Zzh-3xQrrr-FJ6-Zzh-3xQrrr-FJ6-Zzh-3xQrrr-FJ6-Zzh-3xQrrr-FJ6-Zzh-3xQrrr-FJ6-Zzh-3xQrrr-FJ6-Zzh-3xQrrr-FJ6-Zzh-3xQrrr-FJ6-Zzh-3xQrrr-FJ6-Zzh-3xQrrr-FJ6-Zzh-3xQrrr-FJ6-Zzh-3xQrrr-FJ6-Zzh-3xQrrr-FJ6-Zzh-3xQrrr-FJ6-Zzh-3xQrrr-FJ6-Zzh-3xQrrr-FJ6-Zzh-3xQrrr-FJ6-Zzh-3xQrrr-FJ6-Zzh-3xQrrr-FJ6-Zzh-3xQrrr-FJ6-Zzh-3xQrrr-FJ6-Zzh-3xQrrr-FJ6-Zzh-3xQrrr-FJ6-Zzh-3xQrrr-FJ6-Zzh-3xQrrr-FJ6-Zzh-3xQrrr-FJ6-Zzh-3xQrrr-FJ6-Zzh-3xQrrr-FJ6-Zzh-3xQrrr-FJ6-Zzh-3xQrrr-FJ6-Zzh-3xQrrr-FJ6-Zzh-3xQrrr-FJ6-Zzh-3xQrrr-FJ6-Zzh-3xQrrr-FJ6-Zzh-3xQrrr-FJ6-Zzh-3xQrrr-FJ6-Zzh-3xQrrr-FJ6-Zzh-3xQrrr-FJ6-Zzh-3xQrrr-FJ6-Zzh-3xQrrr-FJ6-Zzh-3xQrrr-FJ6-Zzh-3xQrrr-FJ6-Zzh-3xQrrr-FJ6-Zzh-3xQrrr-FJ6-Zzh-3xQrrr-FJ6-Zzh-3xQrrr-FJ6-Zzh-3xQrrr-FJ6-Zzh-3xQrrr-FJ6-Zzh-3xQrrr-FJ6-Zzh-3xQrrr-FJ6-Zzh-3xQrrr-FJ6-Zzh-3xQrrr-FJ6-Zzh-3xQrrr-FJ6-Zzh-3xQrrr-FJ6-Zzh-3xQrrr-FJ6-Zzh-3xQrrr-FJ6-Zzh-3xQrrr-FJ6-Zzh-3xQ

Вусловии нечетко указано, какой символ искать: "о" - это может быть и латинская буква, и кириллическая. в программе предполагается, что это латинский символ, в противном случае его достаточно заменить в const на нужный. const     c: char='o'; var     s: string;     i,k: integer; begin     write('введите строку: '); readln(s);     k: =0;     for i: =1 to length(s) do if s[i]=c then inc(k);     writeln('символ "',c,'" встречается ',k,' раз(а)') end. тестовое решение: введите строку: learn wisdom by the follies of others символ "o" встречается 4 раз(а)