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