Паскаль: написать программу для определения в двумерном массиве целых чисел d[6,6] максимальный элемент под главной диагональю. оформить ввод/вывод массива.

125

304

Посмотреть ответы 2

Ответы на вопрос:

123qjfj

Информатика

4,5(37 оценок)

Var a: array [1..100, 1..100] of integer; i,j,max: longint; begin for i: =1 to 4 do for j: =1 to 4 do read(a[i,j]); max: =a[2,1]; for i: =1 to 6 do for j: =1 to 6 do if (a[i,j]> max) and (i> j) then max: =a[i,j]; for i: =1 to 6 do begin for j: =1 to 6 do write(a[i,j],' '); writeln; end; writeln('максимальный элемент под главной диагональю - ',max); end.