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.
Заходите в личный кабинет, затем значок мои во там и есть ваш во Так-же если вы после моего ответа, то у вас будет уведомление, переходите и открывается во можете его репостнуть и скопировать ссылку. на телефоне нажимаем на самый правый значок внизу, затем во и выбираем во Объяснение:
Удачи :)