Vara:array [1..100] of integer;i:integer;beginrandomize;write('массив:');writeln;beginfor i:=1 to 100 doa[i]:=random (40)-20;end;for i:=1 to 100 dowriteln(a[i]);end.
Var
a:array [1..100] of integer;
i:integer;
begin
randomize;
write('массив:');
writeln;
begin
for i:=1 to 100 do
a[i]:=random (40)-20;
end;
for i:=1 to 100 do
writeln(a[i]);
end.