Дан массив целых чисел из n элементов. Найти сумму четных и произведение нечётных элементов массива.
Var n, i: Integer;
sum, pr: LongInt;
a: array[1..10000] of Integer;
Begin
sum := 0; pr := 1;
readln(n);
for i := 1 to n do begin
read(a[i]);
if a[i] mod 2=0
then sum := sum + a[i]
else pr := pr*a[i];
end;
writeln(sum, ,pr);
End.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
