Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
АртемGoloborshev
02.11.2020 19:01 •
Информатика
Впаскале составить программу для ввода с клавиатуры 7 целых чисел. вывести на экран: 1) элементы массива с положительными значениями. 2)элементы массива с нечетными значениями 3)элементы массива, значения которых положительны и кратны 5
Ответ:
НадюшаLOVEYOU
06.10.2020 21:51
// PascalABC.NET 3.3, сборка 1541 от 29.09.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ReadArrInteger('Введите 7 целых чисел:',7);
Write('Положительные: '); a.Where(x->x>0).Println;
Write(' Нечетные: '); a.Where(x->x.IsOdd).Println;
Write('Положительные, кратные 5: '); a.Where(x->(x>0) and (x mod 5=0)).Println
end.
Пример
Введите 7 целых чисел: -5 6 21 15 -20 40 0
Положительные: 6 21 15 40
Нечетные: -5 21 15
Положительные, кратные 5: 15 40
0,0
(0 оценок)
Популярные вопросы: Информатика
rasukka
08.04.2021 12:15
1.дан двумерный квадратный массив. найти номер строк, все элементы которых равны нулю 2. дан двумерный квадратный массив найти номера строк элементы в каждой из которых равны...
Veratandashvili
11.12.2022 22:18
Хмарні технології – це… А) інформаційно – кумунікаційні технології, що передбачають віддалене опрацювання та зберігання даних; Б) набір інструментів і сервісів, використання...
dzamshutor
09.12.2022 09:59
Любое слово начинается на т а заканчивается на г ? ?...
мафия47
07.10.2020 23:47
Использовать чертёжник Алг Нач Сместиться в точку (1,2) Нц 3 раз Опустить перо Сместиться на вектор (2,2) Сместиться на вектор (2,-2) Сместиться на вектор (-2,-2) Сместиться...
Лера240504
25.10.2021 08:30
Сколько времени потребуется на ввод в память компьютера текста объёмом 39 страниц с сканера и программы распознавания документов ABBYY FineReader, если известно, что сканирование...
KatyaTishkina
29.10.2021 01:16
Что такое патриции сенат плебеи народное собрание....
lera111222
19.01.2020 16:53
Юриста завзятий і хапун такий, що із рідного батька злупить» – так у п’єсі «наталка полтавка» і. котляревського схарактеризовано а тетерваковського б макогоненка в миколу г петра...
Nazar21793
19.01.2020 16:53
Культурные достижения новгородской области...
ladygagav
30.09.2021 13:00
Составьте уравнение реакций, при которых можно осуществить следующие превращения (c6h10o5)n- c2h5oh...
Lord222435
12.09.2021 15:58
Составить к уравнению hcl+naoh=nacl+h2o...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ReadArrInteger('Введите 7 целых чисел:',7);
Write('Положительные: '); a.Where(x->x>0).Println;
Write(' Нечетные: '); a.Where(x->x.IsOdd).Println;
Write('Положительные, кратные 5: '); a.Where(x->(x>0) and (x mod 5=0)).Println
end.
Пример
Введите 7 целых чисел: -5 6 21 15 -20 40 0
Положительные: 6 21 15 40
Нечетные: -5 21 15
Положительные, кратные 5: 15 40