дан массив R(7)...

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

 

 Var r,s:array[1..7] of integer;
m:integer;{Сколько элементов меньше 0}
begin
m:=0;
for i:=1 to 7 do begin
read(r);(Считываем в массив r}
s:=r*2;{Увелививаем в 2 раза и переносим в массив s}
if(r<0) then inc(m);{Если попадаются элементы меньше 0, то увеличиваем на 1}
end;  
end.