Массив 5х5 заполнить случайными числами [0; 2]. посчитать количество максимальных элементов в массиве под побочной диагональю.

kyrenkovalena8 kyrenkovalena8    2   19.03.2019 16:36    1

Ответы
dasha18s10 dasha18s10  26.05.2020 04:43

begin

 var a := MatrRandom(5, 5, 0, 2);

 a.Println;

 var Max := integer.MinValue;

 var Count := 0;

 for var i := 0 to 4 do

   for var j := 0 to 4 do

     if i + j > 4 then

     begin

       if Max < a[i, j] then

       begin

         Max := a[i, j];

         Count := 1

       end

       else

       if Max = a[i,j] then

         Count += 1

     end;

 Write(Count)

end.


Массив 5х5 заполнить случайными числами [0; 2]. посчитать количество максимальных элементов в массив
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика