13.1. Дан массив целых чисел из 12 элементов. Найти сумму отрицательных элементов...

Question

13.1. Дан массив целых чисел из 12 элементов. Найти сумму отрицательных элементов массива.
13.2. Дан массив целых чисел из 12 элементов. Найти количество элементов массива являющихся нечетными и положительными.
13.3. Дан массив целых чисел из 12 элементов. Выяснить верно ли, что количество положительных элементов не превышает 5.

Турбо паскаль. Помогите пожалуйста :)

Answer 1

13. 1
var
a: array [1.. 100] of integer;
k,i: integer;
begin
for i:= 1 to 12 do
readln(a[i]);
k:=0;
for i:= 1 to 12 do
if a[i] < 0 then k:=k+a[i];
writeln(k);
end.