Задание:
Вводится 7 чисел. Найти сумму, произведение положительных чисел и количество отрицательных. Через Паскаль. Помогите срочнонадо.
Решение:
vars,p,n,i: integer; mas: array[1… 7] of integer; begins: =0; p: =1; n: =0; for i: =1 to 7 doread (mas[i]); for i: =1 to 7 do beginif mas[i]>=0 then begins: =s+mas[i]; p: =p*mas[i]; endelsen: =n+1; end; write ('summa=', s, ', proizvedenie=', p, ', otrezatelnich=', n); end.
Знаете другой ответ?