Program w7_86;
uses crt;
const n=10;
var x:array[1..n] of integer;
k,i,m:integer;
BEGIN
clrscr;
randomize;
for i:=1 to n do
begin
x[i]:=random(20)-5;
write(x[i]:5);
end;
writeln;
for i:=n downto 1 do
if x[i]<0 then m:=i
for i:=1 to n do
x[i]:=0;
writeln(x[i]);
writeln;
end;
END.