Program z7_12;
uses crt;
var x:array[1..100] of integer;
n,j,i,s,q:integer;
BEGIN
clrscr;
write('Vvedite razmernost massiva n');
readln(n);
randomize;
for i:=1 to n do begin
x[i]:=random(20); write(x[i]:7); end;
writeln;
writeln('Vvedite chislo');
readln(q);
s:=0;
for i:=1 to n do
if x[i]>q then
begin
s:=s+x[i] end;
writeln('summa',s); writeln;
readln;
END.