var
a:integer;
z:array [1..10] of integer;
begin
write('Элементы цикла(10): ');
for a:=1 to 10 do
z[a]:=random(21)-10;
write(z[a],', ');
end;
end.
