Program a1;
var a:array[1..120] of integer;
i,s:integer;
begin
randomize();
for i:=1 to 120 do
begin
a[i]:=random(50);
write(a[i],' ');
if abs(a[i]) > 17 then s:=s+1;
end;
write(s);
end.
program a2;
var c:array[1..20] of integer;
i:integer;
begin
randomize();
for i:=1 to 20 do
begin
c[i]:=random(25);
c[i]:=c[i]*(-1);
write(c[i],' ');
end;
end.