Паскаль. составьте программу вычисления в массиве a(n) произведения четных элементов. массив сформировать с генератора случайных чисел.
Ididhhxj
1
22.05.2019 09:30
0
Другие вопросы по теме Информатика
Webymnyaha
19.07.2019 23:30
Катаріна12
02.07.2019 03:10
20тимоха18
11.11.2020 14:20
hdjeugwcwtixuvbekz
11.11.2020 14:19
Првнсл28458
01.09.2021 23:18
chestnut3342
06.07.2019 14:20
Явсёзнаю0
21.04.2021 12:04
lenapanfilova0
19.08.2019 17:40
wwwshev24
19.08.2019 17:40
мыпоммрт
19.08.2019 17:40
Популярные вопросы
- Прочитайте статью «Мир на Куликовском поле» и письменно ответьте на во Каковы же...
3 - Разложи на множители: 111z2−211zy+111y2 ....
2 - сочинение на тему учение с увлечением 10-15 предложений...
1 - Даны точки M(6;-2), N(5;6), P(-6;-2), K(1;6), S(6;6) H(5;1) и окружность (a) (O;R),...
1 - Укажи все утверждения, верные для карбоната кальция:жидкостьего можно получить...
3 - Катеты прямоугольного треугольника равны 12 см и 5 см.Найдите все тригонометрические...
2 - Сколько молей содержится в 115 г следующих веществ при нормальных условиях серы...
2 - Дана точка А (-1 3 2). Записать симметричную ей относительно плоскости ХY, относительно...
1 - Коли суцільному металеву кулю, яку підвішено до динаметру зменшилась га 10%. Визначте...
3 - Поясненя причини раптового зникненя одного зобєктів на картці...
3
const
n=15;
var
a:array [1..n] of integer;
i:integer;
p:longint;
begin
randomize;
p:=1;
for i:=1 to n do begin
a[i]:=random(9)+1;
write (a[i]:2);
if a[i] mod 2 = 0 then p:=p*a[i];
end;
writeln;
writeln ('Proizvedenie: ',p);
readln;
end.