в массиве действительных чисел с от 1 до 11 посчитать сумму отрицательных элементов, произведение положительных и вывести на экран номера нулевых элементов.
ПОМОГИТЕ ПОЖАЛУЙСТА!!!с помощью паскаля, а числа задавать можно любым способом.
- var a:array[1..11] of real;sum,proiz:real;i:integer;beginfor i:=1 to 11 do read(s[i]);for i:=1 to 11 begin if a[i]0 then proiz:=proiz*a[i]; if a[i]=0 then writeln(a[i]); end;writeln(sum);writeln(proiz);end.
должно пойти