1) Дан массив из 10 чисел. Найти произведение положительных чисел

Question

1) Дан массив из 10 чисел. Найти произведение положительных чисел. 2) Дан массив из 10 чисел. Найти суммуотрицательных.

Answer 1

54

maximuse

24 августа 2022

Program t1; Var A: array [1… 10] of Integer; i: Byte; s: Longint; Begins: =1; For i: =1 to 10 doBeginReadln (A[i]); If A[i]>0 thens: =s*A[i]; End; Write (s); Readln; End. Для отрицательных чисел замени A[i]>0 на A[i]<0 , s: =s*A[i] на s: =s+A[i] и s: =1 убери

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

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

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

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

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