Регистрация
ГхмГхм
24.09.2021 10:43
Информатика
Есть ответ 👍

Спаскалем. ввести одномерный массив a из 12 элементов. определить в нём произведение чётных элементов.

199
256
Посмотреть ответы 2

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

Ученик221603
Ученик221603
4,5(45 оценок)
Program al; 6 const n=12; var a : array[1..n] of integer; p,i: integer; begin    writeln('vvedite massiv=');     for i : = 1 to n do    readln (a[i]);       p: =1;     for i : = 1 to n do    if a[i] mod 2=0 then p: =p*a[i];       writeln('proizwedenie ciotnih elementov=',p);     readln;     end.
turgalieva18
turgalieva18
4,4(49 оценок)
Var a: array[1..10] of integer;     i: integer; begin  for i: =1 to 10 do    begin      a[i]: =-4+random(8); write(a[i],' '); end; end.

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