Question

Найти сумму отрицательных, произведение положительных и количесво нулевых элементов в виде блоксхемы

Answer 1

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 program test; var   a:array[0..15] of integer;   s,c,p:integer;   i:byte; begin   s:=0;c:=0;p:=1;   //Заполняем значениями   for i:=0 to 15 do    begin     readln(a[i]);     if a[i]<0 then s:=s+a[i];     if a[i]>0 then c:=c+1;     if a[i]<>0 then p:=p*a[i];    end;     writeln('Сумма:',s);   writeln('Количество:',c);   writeln('Произведение:',p);   readln(s); end.