uses
CRT;
type
mas=array[1..20,1..20] of integer;
var
a,b,c,m,n,i,j,max,kol:integer;
D:mas;
Begin
clrscr;
write ('Введите размер матрицы:
');
readln (n);
write ('Введите диапазон чисел:
');
readln (a,b);
Randomize;
For i:=1 to n do
Begin
For j:=1 to n do
Begin
D[i,j]:=random(b-a)+a;
write (D[i,j]:4);
End;
writeln;
End;
For i:=1 to n do
For j:=1 to n do
Begin
If (D[i,j] mod 5)=0 then
If max
Begin
max:=D[i,j];
End;
End;
kol:=0;
For i:=1 to n do
For j:=1 to n do
Begin
If max
Begin
kol:=kol+1;
End;
End;
writeln ('Макс число кратное 5=
',max);
writeln
('Количество чисел больших макс= ',kol);
readln;
End.