Август 28 ноября 2019 в 11:12
Дано целочисленный массив. Найдите количество четных элементов.Паскаль
Дано целочисленный массив. Найдите количество четных элементов.Паскаль
// PascalABC.NET 3.1, сборка 1239 от 08.05.2016
begin
var a:=ArrRandom(ReadInteger(n=),1,100); a.Println;
Writeln(Четных элементов: ,a.Where(x-gt;x.IsEven).Count)
end.
Тестовое решение
n= 15
48 48 85 94 39 45 22 16 75 51 85 97 91 31 92
Четных элементов: 6
begin
var a:=ArrRandom(ReadInteger(n=),1,100); a.Println;
Writeln(Четных элементов: ,a.Where(x-gt;x.IsEven).Count)
end.
Тестовое решение
n= 15
48 48 85 94 39 45 22 16 75 51 85 97 91 31 92
Четных элементов: 6
В ответе прилагаю файл.
Компьютеры и вычисления
262
0
Для комментирования необходимо зарегистрироваться на сайте