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