Напиши те программу вычисления в массиве из n элементов, заданных датчиком случайных чисел из промежутка от -13 до 25, количества четных элементов.
Напиши те программу вычисления в массиве из n элементов, заданных датчиком случайных чисел из промежутка от -13 до 25, количества четных элементов.
Ответ(ы) на вопрос:
Гость
begin
var a := ArrRandom (ReadInteger ('n='), -13,25).Where (x-> x mod 2=0).Count;
write (a);
end.
Не нашли ответ?
Похожие вопросы