дан массив R (7) R=12,-12, 49, 16, - 4, 33, 94 значение элементов данного массива увеличить в 2 раза и поместить в новый массив который называется S (7) посчитать сколько раз в массиве R встречаются элементы меньше 0

program zz1;

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

R:array [1 ... n] of integer = (12,-12, 49, 16, - 4, 33, 94);

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

S:array [1 ... n] of integer;

begin

for i:=1 to n do S[i]:=R[i];

for i:=1 to n do write (S[i], ' ');

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

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

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

end.