Анонимно
Дано целочисленный массив. Найдите количество четных элементов.Паскаль
Ответ
Анонимно
// PascalABC.NET 3.1, сборка 1239 от 08.05.2016
begin
var a:=ArrRandom(ReadInteger('n='),1,100); a.Println;
Writeln('Четных элементов: ',a.Where(x->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->x.IsEven).Count)
end.
Тестовое решение
n= 15
48 48 85 94 39 45 22 16 75 51 85 97 91 31 92
Четных элементов: 6
Ответ
Анонимно
В ответе прилагаю файл.
Новые вопросы по Информатике
10 - 11 классы
2 минуты назад
5 - 9 классы
7 минут назад
1 - 4 классы
7 минут назад
5 - 9 классы
10 минут назад
Нужен ответ
10 - 11 классы
2 месяца назад
Студенческий
2 месяца назад
Студенческий
2 месяца назад
Студенческий
2 месяца назад
Студенческий
2 месяца назад