Дан массив целых чисел из n элементов. Найти сумму четных и произведение нечётных ??лементов массива.
?лементов массива.
Ответы:
23-11-2018 14:39
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.
Также наши пользователи интересуются:
Найдите значения выражения .Очень надо !!!!!!!!!!! при b=-0,5 при m=6Прямоугольник со сторонами 60см и 15см поделили по ширине на 3 одинаковых прямоугол?
⭐⭐⭐⭐⭐ Лучший ответ на вопрос «Дан массив целых чисел из n элементов. Найти сумму четных и произведение нечётных ?» от пользователя ЯРОСЛАВА ДОРОШЕНКО в разделе Информатика. Задавайте вопросы и делитесь своими знаниями.
Открой этот вопрос на телефоне - включи камеру и наведи на QR-код!