Составить программу, в которой значения элементного массива вводится случайным образом. кол-во эл. мас. задаёт программист. программа должна подсчитывает среднее арифмет. элементов массива и кол-во отрицательных элементов массива.

Блет. уже третий раз отвечаю. Просто скопирую со своего ответа:
var i,n:integer;
begin

for i:=1 to 5 do begin
n:=n*10+5;
writeln(n);
end;

n:=11111;
for i:=1 to 5 do begin
writeln(n);
n:=n div 10;
end;