profile
Опубликовано 4 года назад по предмету Информатика от nikko134

Найти максимальный элемент дополнительной диагонали квадратной матрицы (в паскале)

  1. Ответ
    Ответ дан Gilbord
    var a:array[1..8, 1..8] of integer;
        max, i, j:integer;
    begin
       randomize;
       max:=0;
       for i:=1 to 8 do
        for j:=1 to 8 do
        a[i,j]:=random(200);
        for i:=1 to 8 do
         for j:=1 to 8 do
         if i+j=9 then
           begin
          if a[i, j]>max then max:=a[i, j];
          end;
         for i:=1 to 8 do
          begin 
         for j:=1 to 8 do
          write(a[i, j]:5); 
         writeln; 
         end; 
         writeln('Максимальный элемент=', max);
       end.