Вводится 7 чисел. Найти сумму…

Question

Вводится 7 чисел. Найти сумму, произведение положительных чисел и количество отрицательных. Через Паскаль. Помогите срочнонадо.

Answer 1

52

alex-sss

17 марта 2023

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.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: