Предмет: Информатика, автор: andreyxaritonow

Написать задачу в Паскале.9 класс.
Найти максимальный элемент дополнительной диагонали квадратной матрицы.


maximus22870: норм ответ?
andreyxaritonow: Да, спасибо.

Ответы

Автор ответа: maximus22870
1

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.

Похожие вопросы
Предмет: Математика, автор: русикоз