В квадратной матрице X найти максимальный диагональный элемент - Pascal ABC

Формулировка задачи:

Помогите написать программу В квадратной матрице X найти максимальный диагональный элемент и вывести всю строку, в которой он расположен.

Код к задаче: «В квадратной матрице X найти максимальный диагональный элемент - Pascal ABC»

textual
const
nx = 5;
var
z:array[1..nx,1..nx] of integer;
i, j, k, max: integer;
begin
writeln(' Исходный массив:');
for i:=1 to nx do
    begin
    for j:=1 to nx do
        begin
        z[i,j]:=random(18) - 9;
        write(z[i,j]:3);
        end;
    writeln;
    end;
max:=z[1,1];
k:=1;
for i:=1 to nx do
    begin
    if z[i,i] > max then
        begin
        max:= z[i,i];
        k:=i;
        end;
    if z[i,nx-i+1] > max then
        begin
        max:= z[i,nx-i+1];
        k:=i;
        end;
    end;
writeln('Максимальный диагональный элемент: ',max);
writeln('Строка с максимальным диагональным элементом:');
for i:=1 to nx do
    write(z[k,i]:3);
writeln;
end.

6   голосов, оценка 4.167 из 5


СОХРАНИТЬ ССЫЛКУ