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.
#include <iostream>
using namespace std;
int main()
{
setlocale(LC_ALL, "ru");
int a, b;
cout << "Введите первую сторону: ";
cin >> a;
cout << "Введите вторую сторону: ";
cin >> b;
cout << "Площадь прямоугольника: " << a * b << endl;
system("pause");
}