Program r7_97;
uses crt;
const n=10;
var i:integer;
a:array[1..n] of integer;
BEGIN
Randomize;
write('числа из интервала [75,-21]');
writeln;
for i:=1 to n do begin
A[i]:=Random(75)-21;
write(a[i]:4);
end;
writeln;
write('числа из интервала [79,-11]') ;
writeln;
for i:=1 to n do begin
A[i]:=Random(79)-11;
write(a[i]:4);
end;
writeln;
write('числа из интервала [111,-35]') ;
writeln;
for i:=1 to n do begin
A[i]:=Random(111)-35;
write(a[i]:4);
end;
writeln;
write('числа из интервала [141,-45]') ;
writeln;
for i:=1 to n do begin
A[i]:=Random(141)-45;
write(a[i]:4);
end;
writeln;
END.