1.Заполните массив значениями случайным образом и выведите его на экран.
Матрица 5х5
const n=5;
var a:array[1..n,1..n]of integer;
i,j,max,k,t:integer;
begin
randomize;
writeln('Исходный массив');
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(100);
write(a[i,j]:3);
end;
writeln;
end;
write('Введите k');
readln(k);
max:=-1;
t:=0;
for i:=1 to n do for j:=1 to n do if a[i,j] mod k=0 then
begin
t:=t+1;
if a[i,j]>max then max:=a[i,j];
end;
write('t=',t);
writeln('MAX=',max);
end.

6473089    3   19.05.2020 12:17    2