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

[schibeki]

1. Сформировать массив а[1..8,1..8], элементы которого выбираются случайным образом из интервала [10, 70]. Найти произведение максимального и минимального элементов диагонали матрицы.

[Serge_Bliznykov]

какой именно из диагоналей?
И что не получается?

[schibeki]

Сообщение от Serge_Bliznykov

какой именно из диагоналей?
И что не получается?

можно главной. не получается найти их и сделать произведение

[Serge_Bliznykov]

const n = 8;
var 
  A : array[1..n,1..n] of integer;
  i, j : integer;
  min, max : integer;
begin
   {заполнить массив псевдослучаными числами}
   Randomize;
   for i:=1  to n do
     for j:=1 to n do A[i,j] := Random(61)+10;

   {выведем массив на экран}
   for i:=1  to n do begin
     for j:=1 to n do Write(A[i,j]:4);
     WriteLn;
   end;

   {поиск мин и макс на главной диагонали}
   min := A[1,1];
   max := A[1,1];
   for i:=1 to n do begin
      if A[i,i] > max then max := A[i,i];
      if A[i,i] < min then min := A[i,i];
   end;
 
   WriteLn('proizvedenie = ', max * min );

  Readln
end.

вопросы?



p.s. когда отвечаете на сообщение, не надо цитировать сообщение ЦЕЛИКОМ!!!
Удаляйте из цитируемого текста лишнее, оставляйте в цитате только то, что Вам нужно для ответа. Иначе это нарушение - overquoting (оверквотинг)