Question

ПОМОГИТЕ!!! СРОЧНО!!! ПАСКАЛЬ!!!
Массив 5х5 заполнить случайными числами [0;2]. Посчитать количество максимальных элементов в массиве под побочной диагональю.

Answer 1

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.

12856dd5f75d92e0b0c3089a05cc0a2c.pas