1) ввести с клавиатуры массив из 10 элементов посчитать среднее значение и суммы
2) Вывести масив из 8 элементов с помощью генератора случайных чисел в диапазоне от -10 до +10 и посчитать количество отрицательных элементов массива

1)

program v8;

var a:array[1..10] of integer;

 n,m,i,sum:integer;

 t:real;

begin

writeln('Введите числа массива: ');

sum:=0;

for i:=1 to 10 do

 readln(a[i]);

for i:=1 to 10 do write(a[i]:5); writeln;

for i:=1 to 10 do  

 begin

 sum:=sum+a[i];

 t:=sum/10;

 end;

 writeln('Сумма = ', sum ,' среднее арифметическое равно ',t);

end.