Как найти максимальный элемент главной диагонали? - Turbo Pascal

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

Помогите пожалуйста
program sbb;
uses crt;
var
  i,j,s:integer;
a:array[1..5,1..10] of integer;
begin
  for i:=1 to 5 do
  begin
    for j:=1 to 10 do
    begin
      random(50);
      a[i,j]:=random(50);
      write(' ');
      write(a[i,j]);
    end;
    writeln
  end;

Код к задаче: «Как найти максимальный элемент главной диагонали? - Turbo Pascal»

textual
program sbb;
uses crt;
const n = 5;
var
  i, j, max : integer;
a:array[1..n,1..n] of integer;
begin
  max := -100;
  randomize;
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin      
      a[i,j]:=random(50);
      write(a[i,j]:4);
      if (a[i,j] >= max) and (i = j) then max := a[i,j] {ищем максимум}
    end;
    writeln
  end;
  writeln('максимум: ', max);
  readln
end.

8   голосов, оценка 3.875 из 5


СОХРАНИТЬ ССЫЛКУ
Похожие ответы