Задание:
1) Дан массив из 10 чисел. Найти произведение положительных чисел. 2) Дан массив из 10 чисел. Найти суммуотрицательных.
Решение:
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 убери
Знаете другой ответ?