Напишите программу в среде Pascal ABC,которая в последовательности чисел от 5 до 30 находит произведение чётных.
Напишите программу в среде Pascal ABC,которая в последовательности чисел от 5 до 30 находит произведение чётных.
Гость
Ответ(ы) на вопрос:
ГостьProgram fofgogjoj;
Var
a: array [1..100] of integer;
i, n, p: integer;
Begin
p:=1;
n:=30;
for i:=5 to n do
begin
a[i]:=i;
if i mod 2=0 then
p:=p*a[i];
end;
Writeln ('Произведение элементов массива с четными числами равно: ',p);
End.
Гостьэто очень сложно, не могу
Не нашли ответ?
Похожие вопросы