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

procedure vvod;beginrandomize;writeln(\'введи кол-во элементов в массиве\');read(n);for i:=1 to n domassiv[i]:=random(61)-30;end;procedure vivod;beginfor i:=1 to n dobeginwrite(massiv[i]:4);writeln;end;end;procedure umn;beginfor i:=1to n doif massiv[i]>0then massiv[i]:=massiv[i]*2else massiv[i]:=massiv[i]*10;end;procedure sred_arifmet;varkol:integer;beginkol:=0;s:=0;for i:=1 to n doif massiv[i]>0thenbeginkol:=kol+1;s:=massiv[i]+s;end;h:=(s/kol);writeln(\'среднее арифметическое = \');writeln(h:4:1);end;beginclrscr;vvod;vivod;umn;vivod;sred_arifmet;vivod;end.Второй вариант:Program CyberForum;vara:array[1..101] of real;max,min:real;i:integer;beginmax:=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.