Составьте программку наполнения массива из 100 чисел случайными значениями из диапазона

procedure vvod;
begin
randomize;
writeln(введи кол-во частей в массиве);
read(n);
for i:=1 to n do
massiv[i]:=random(61)-30;
end;
procedure vivod;
begin
for i:=1 to n do
begin
write(massiv[i]:4);
writeln;
end;
end;
procedure umn;
begin
for i:=1to n do
if massiv[i]gt;0
then massiv[i]:=massiv[i]*2
else massiv[i]:=massiv[i]*10;
end;
procedure sred_arifmet;
var
kol:integer;
begin
kol:=0;
s:=0;
for i:=1 to n do
if massiv[i]gt;0
then
begin
kol:=kol+1;
s:=massiv[i]+s;
end;
h:=(s/kol);
writeln(среднее арифметическое = );
writeln(h:4:1);
end;
begin
clrscr;
vvod;
vivod;
umn;
vivod;
sred_arifmet;
vivod;
end.
2-ой вариант:
Program CyberForum;
var
a:array[1..101] of real;
max,min:real;
i:integer;
begin
max:=0;
min:=0;
Write(Массив: );
for i:=1 to 100 do
begin
a[i]:=(random(4000) - 2000 ) / 100;
write(a[i]:9:2);
if a[i]gt;0 then
max:=max+1;
if a[i]lt;0 then
min:=min+1;
end;
Writeln;
Writeln(Кол-во положительных: ,max);
Writeln(Кол-во отрицательных: ,min);
end.