var
a:arrayof integer;
i,kol:integer;
begin
randomize;
for i:=1 to 70 do
a:=random(50)-40;
for i:=1 to 70 do
write(a,' ');
writeln;
for i:=1 to 70 do
if a>0 then break else inc(kol);
writeln(kol);
readln;
end.
from random import randint kol = 0 a = [randint(0, 50)-40 for i in range(70)] print(a) for num in a: if num > 0: break else: kol +=1 print(kol)