Дана последовательность чисел: 26, - 53, 0, - 67, 12, - 34, 0, 90, 14, - 78, 0, - 45, 66. Найди количество отрицательных чисел, сумму положительных чисел, среднее значение.

program zz1;

const n = 13; / / задаем количество элементов в массиве

R:array [1 ... n] of integer = (26, - 53, 0, - 67, 12, - 34, 0, 90, 14, - 78, 0, - 45, 66); / / задаем последовательность чисел

var i, k, m:integer; / / задаем переменные целого типа

begin

for i:=1 to n do / / организуем цикл, в котором переберем все элементы массива

begin

if R[i] < 0 then k:=k + 1; / / проверяем, если элемент отрицательный, то считаем его

if R[i] > 0 then m:=m + R[i]; / / проверяем, если элемент положительный, то добавляем элемент в сумму

end;

writeln (' количество отрицательных = ', k); / / выводим ответ

writeln (' сумма положительных = ', m);

writeln (' среднее значение = ', m/13);

end.