Составьте программу,которая заполняет массив а [1..10] случайными целыми числами в диапазоне от 1 до 10 и вычисляет произведение элементов массива с нечётными значениями
164
173
Ответы на вопрос:
Var a: array [1..10] of integer; i,n: integer; begin n: =1; randomize; for i: =1 to 10 do a[i]: =random(10); for i: =1 to 10 do write(a[i],' '); writeln; for i: =1 to 10 do begin if a[i] mod 2 < > 0 then n: =n*a[i] end; write(n); end.
Популярно: Информатика
-
gghggggg101.06.2023 05:17
-
ximik120901.08.2022 15:44
-
vikahamka71117.05.2022 17:41
-
Sashaooo18.02.2023 11:58
-
nekish2106.03.2022 11:35
-
olqa252ru03.05.2022 03:25
-
kseniya711703.01.2022 00:18
-
mashakesea0322.01.2020 00:39
-
Макс1111111f11.09.2022 11:49
-
МисакиКогуна18.10.2021 15:44