Дан массив из 10 целых чисел заполненный случайными числами из интервала [0;15]. Определить является ли произведение элементов массива, имеющих четные порядковые номера, нечетным числом
Var ar:array[1..10] of integer;
k,i,m:integer;
begin;
randomize;
k:=1;writeln(Array:);
for i:=1 to 10 do
begin;
ar[i]:=random(0,15);
if odd(i)=false then k:=k*ar[i];
write(ar[i]:4);
end;
writeln;
writeln(Result:,k);
if odd(k) then writeln(Yes) else writeln(No);
end.
//Мала вероятность того, что вернёт Yes, поэтому прикрутил Result
Вывод с 300-400 запуска:
Array:
9 15 8 15 5 3 0 15 3 9
Result:91125
Yes
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
