A.Where(x -> (x > 9) and (x mod 5 = 0)).Count.Println;
end.
0 votes Thanks 0
2lazy2comeupwip7c8nz
гм... к сожалению не подходит. возможно стоит добавить, что это PascalABC?
KnowsUser1
Действительно, возможно в вопросе всё таки стоит указывать конкретную версию языка. Ибо PascalABC такого не позволяет, а PascalABC.NET - Вполне. Просто в школах обычно используют ABC.NET
2lazy2comeupwip7c8nz
чего ты удивляешься? Россия ведь. у нас пк оборудованы 2гб озу например. просто я сейчас загружен работой и если кто-нибудь напишет эту программу, то мне удастся поспать хотя бы 4 часа
Answers & Comments
Ответ:
PascalABC.NET
begin
var N := ReadInteger('Сколько чисел? ');
var A := ReadArrInteger('Вводи: ', N);
A.Where(x -> (x > 9) and (x mod 5 = 0)).Count.Println;
end.