в массиве действительных чисел с от 1 до 11 посчитать сумму отрицательных элементов, произведение положительных и вывести на экран номера нулевых элементов.
ПОМОГИТЕ ПОЖАЛУЙСТА!!!с помощью паскаля, а числа задавать можно любым способом.

1

Ответы и объяснения

2014-01-27T19:42:49+00:00
Var a:array[1..11] of real;
sum,proiz:real;
i:integer;
begin
for i:=1 to 11 do read(s[i]);
for i:=1 to 11 
   begin
   if a[i]<0 then sum:=sum+a[i];
   if a[i]>0 then proiz:=proiz*a[i];
   if a[i]=0 then writeln(a[i]);
   end;
writeln(sum);
writeln(proiz);
end.
должно пойти