Cоставить программу в паскале. В одномерном массиве произвольных чисел вычислить Произведение четных и нечетных элементов.
Произведение четных и нечетных элементов.
Ответы:
29-05-2018 12:26
Var a : array [1..10] of integer;I, p1, p2: integer;BeginI:=1;P1:=1; p2:=1;For i := 1 to 10 do a[i] := random(10);While i<=10 do beginIf i mod 2 <> 0 then p1:=p1 *a[i] else p2:= p2 * a[i];I := i +1;End;Write(p1,,p2)End.
Также наши пользователи интересуются:
Подберите однакареные слова парные по глухости-звонкости согласные звукиВ каком году умер Жульверн
⭐⭐⭐⭐⭐ Лучший ответ на вопрос «Cоставить программу в паскале. В одномерном массиве произвольных чисел вычислить » от пользователя Марсель Рудык в разделе Информатика. Задавайте вопросы и делитесь своими знаниями.
Открой этот вопрос на телефоне - включи камеру и наведи на QR-код!