Дан двумерный массив A (n * m). Найти

количество элементов больших 5 в

последнем столбце матрицы.

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.