Дан массив из 10 целых чисел заполненный случайными числами из интервала [-15; 15]. Определить является ли произведение элементов массива имеющих нечетные порядковые номера четным числом. помогите пожалуйста с:
Дан массив из 10 целых чисел заполненный случайными числами из интервала [-15; 15]. Определить является ли произведение элементов массива имеющих нечетные порядковые номера четным числом. помогите пожалуйста с:
Гость
Ответ(ы) на вопрос:
Гостьvar b,pr:integer;
a: array [0..9] of integer;
begin
randomize;
pr:=1;
for b:=0 to 9 do begin
a[b]:=random(30)-15;
write(a[b],' ');
if (b mod 2 <>0) then pr:=a[b]*pr;
end;
if pr mod 2 = 0 then writeln('чётное');
if pr mod 2 <> 0 then writeln('нечётное');
end.
Не нашли ответ?
Похожие вопросы