1)Дан массив из 10 чисел. Найти произведение положительных чисел. 2)Дан массив из 10 чисел. Найти сумму отрицательных.
1)Дан массив из 10 чисел. Найти произведение положительных чисел. 2)Дан массив из 10 чисел. Найти сумму отрицательных.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Var A: array [1..10] of Integer; i: Byte; s: Longint;
Begin
s:=1;
For i:= 1 to 10 do
Begin
Readln (A[i]);
If A[i]>0 then
s:=s*A[i];
End;
Write (s);
Readln;
End.
Для отрицательных чисел замени A[i]>0 на A[i]<0 , s:=s*A[i] на s:=s+A[i] и s:=1 убери