Составьте программу заполнения массива из 100 чисел случайными значениями из диапазона от - 20 до 20. Подсчитайте в этом массиве количество положительных и количество отрицательных значений. (на паскале)

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]>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]>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.

Второй вариант:

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]>0 then

max:=max+1;

if a[i]<0 then

min:=min+1;

end;

Writeln;

Writeln ('Кол-во положительных: ', max);

Writeln ('Кол-во отрицательных: ', min);

end.