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

Question

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

Comments

За лучший ответ сделаю.

---

Лучший ответ это что?

---

Появится под решением.

---

Хорошо, дам лучший ответ

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.

---

Comments

Скачайте лучше файл, тут коряво копирует с ответов