Дан массив целых чисел из n элементов. Найти сумму четных и произведение нечётных ?
Дан массив целых чисел из 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.
Не нашли ответ?
Похожие вопросы