Войти Регистрация Спроси ai-bota

Дано целочисленный массив. найдите количество четных элементов.паскаль

Ответ:

Dan1la1

25.08.2020 15:47

// 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

0,0(0 оценок)

Ответ:

21Алина111

25.08.2020 15:47

В ответе прилагаю файл.

0,0(0 оценок)

Популярные вопросы: Информатика

agarkovr83

06.02.2022 04:21

Написать программу, которая проверяет, является ли целое число, введенное пользователем, простым паскаль, цикл с постусловием...

наруоклоктлалтмтата

27.09.2020 21:40

Оцените роль программирования в современном мире....

Помрлтм245

11.10.2020 17:37

А) пешеходу надо пройти а км. он ч. со скоростью в км/ч.сколько километров ему осталось ещё пройти? б)автобус ехал 2 ч.со скоростью с км\ч и 3 ч со скоростью д км\ч.какое...

Варюша221204

11.10.2020 17:37

Написать программу на языке pascal. написать программу, которая выводит 10 одинаковых чисел...

Egoregoryts

07.06.2020 22:36

Почему кодировки, в которых каждый символ кодируется цепочкой из восьми нулей и единиц, называются иначе однобайтовыми?...

alinkarazborova

18.12.2022 23:17

Очем задумывался отрок толстой в своем произведение отрочество...

Koley112

18.12.2022 23:17

Стиральный порошок продаётся в коробках по 650 г и 750 г. мама хочет купить не более 2 кг порошка. сколько и какие упаковки порошка она может купить? что бы было решение...

anitabadurova

18.12.2022 23:17

Какие организмы называют симбионтами?...

Habibullo32

18.12.2022 23:17

Как решить уравнение 300-(172-х)=279...

Redimer

18.12.2022 23:17

Сократите дробь: 354\438 1710\1860 216\324 345\465 2250\3105 270\360 108\135 222\246 144\243 225\450...

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку