Дана последовательность чисел: 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; // задаем переменные целого типаbeginfor i:=1 to n do // организуем цикл, в котором переберем все элементы массиваbeginif 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.