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.
