ЗАДАНИЕ :заполнить массив из 10 элементов случайными числами из отрезков [-20;20] вывести массив на экран в строку найти сумму элементов . найти количество отрицательный элементов и количество нечетных элементов ВСЕ ДЛЯ ПАСКАЛЯ

Program sadadasf;

var i,k: integer;    

A: Array[1..20] of integer;

begin

For i:=1 to 20 do  

begin    

k:=random(41)-20;    

A[i]:=k;  

end;

end.

Объяснение: