В двумерном массиве Z[1..5,1..5] найти наименьший элемент среди элементов вспомогательной...

Question

В двумерном массиве Z[1..5,1..5] найти наименьший элемент среди элементов вспомогательной диагонали. вывести на экран его индексы и значение. Пожалуйста, не используйте заумных проограмм, составьте её для Паскаля на уровне 9 класса. Большое спасибо.

Answer 1

const
  n= 5;

var
  i,j,max: integer;
  a: array [1..5,1..5] of integer;

begin
  for i:=1 to n do begin
    for j:=1 to n do begin
      a[i,j]:= random(10);
      write(a[i,j],' ')
    end;
    writeln
  end;
  max:= a[n,1];
  for i:=1 to n do
    if a[i,n-i+1]>max then max:=a[i,n-i+1];
  writeln(max)
end.