Программа на паскале

дано 10 чисел

найти среднее арифметическое всех чисел, потом положительных, потом отрицательных.

for var i:=1 to 10 do

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

i,k:integer;

s:real;

begin

k:=0;

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

for i:=1 to 10 do

begin

readln(a[i]);

k:=k+a[i];

end;

s:=k/10;

writeln('Среднее арифметическое равняется ',s);

end.

Объяснение: