ПАСКАЛЬ
Дан одномерный целочисленный массив A[10]. Массив вводится с клавиатуры.
Написать программу, которая будет находить произведение четных элементов массива.
Ответы
Ответ дал:
0
Ответ:
var a: array [1..10] of integer;
var s,i: integer;
begin
s:=1;
for i:=1 to 10 do
begin
read(a[i]);
if (a[i] mod 2 = 0) then s:=s*a[i];
end;
writeln('Произведение четных элементов массива: ',s);
end.
Ответ дал:
0
У тебя там ошибка небольшая, в 8 строчке должно быть не i mod 2, а a[i] mod 2
Ответ дал:
0
Согласен, спасибо
Похожие вопросы
1 год назад
2 года назад
2 года назад
8 лет назад
8 лет назад
9 лет назад