Program -dmas_6-

uses crt-

const n=3-m=4-

Var a:array[1..n,1..m] -of integer-

k,i,j,b:integer-

Begin

Writeln(‘введите число‘)- —

Readln(b)-

Randomize-

k:=0-

For i:=1 to n do

begin

For j:=1 to m do

begin

a[i,j]:=random(10)- —

write(a[I,j]:4)-

if a[I,j]&gt-b then —

k:=k+1-

End-

Writeln-

End-

If k&gt-0 then Writeln(‘Чисел больше заданного числа ‘,k) else Writeln (‘Таковых нет ‘)-

Readln-

End.