Дан массив R (7) R=12,-12, 49, 16, -4, 33…

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