Решение с использованием генератора случайных чисел

Program mas_1-

Uses Crt-

Const n=10-

Var

a:array[1..n] of integer-

i,count:integer-

BEGIN

ClrScr-

count:=0-

Randomize-

for i:=1 to n do

begin

a[i]:=Random(20)-

Write(a[i]:4)-

end-

Writeln-

for i:=1 to n do

begin

if a[i]&gt-7

then

begin

a[i]:=7-

count:=count+1-

end-

Write(a[i]:4)-

end-

Writeln-

Writeln(‘Кол: ‘,count)-

readkey-

END.