Регистрация
помогите1170
08.07.2021 11:32
Информатика
Есть ответ 👍

Cоставить программу в паскале. в одномерном массиве произвольных чисел вычислить произведение четных и нечетных элементов.

264
293
Посмотреть ответы 2

Ответы на вопрос:

skymiss
skymiss
4,8(32 оценок)
Var a : array [1..10] of integer; i, p1, p2: integer; begin i: =1; p1: =1; p2: =1; for i : = 1 to 10 do a[i] : = random(10); while i< =10 do begin if i mod 2 < > 0 then p1: =p1 *a[i] else p2: = p2 * a[i]; i : = i +1; end; write(p1,' ',p2) end.
Vlada0904
Vlada0904
4,8(65 оценок)

658 bit  1637 bautov

Объяснение:

Популярно: Информатика