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<D[i,j] then
Begin
max:=D[i,j];
End;
End;
kol:=0;
For i:=1 to n do
For j:=1 to n do
Begin
If max<D[i,j] then
Begin
kol:=kol+1;
End;
End;
writeln ('Макс число кратное 5= ',max);
writeln ('Количество чисел больших макс= ',kol);
readln;
End.
1010010(2) = 82(10)