Uses crt;
var a: array [1..100,1..100] of integer;
x,y,n,m,k:integer;
begin
write(n:); readln(n);
write(m:); readln(m);
for x:=1 to n do
begin
for y:=1 to m do
begin
a[x,y]:=random(10);
write(a[x,y]:3);
end;
writeln;
end;
y:=m;
for x:=1 to n do
if a[x,y]>5 then inc(k);
writeln;
writeln(Количество элементов больших 5 в последнем столбце: ,k);
end.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.