Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
MarinkaJones
23.08.2020 03:58 •
Информатика
Впаскале составить программу для ввода с клавиатуры 7 целых чисел. вывести на экран: 1) элементы массива с положительными значениями. 2)элементы массива с нечетными значениями 3)элементы массива, значения которых положительны и кратны 5
Ответ:
lerak1301
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 оценок)
Популярные вопросы: Информатика
1ЛиКа6
26.04.2023 20:52
2) сообщение, записанное буквами из 64-символьного алфавита, содержит 720 символов. какой объем информации оно несет?...
Fezit
26.04.2023 20:52
Какие ключевые слова не используются для записи команды выбора? а)else b)of c)then d)case...
AbashkinaEvgenia98
17.07.2020 15:15
4) племя мульти имеет 32-символьный алфавит. племя пульти использует 64-символьный алфавит. вожди племени обменялись письмами. письмо племени мульти содержало 80 символов,...
hopelless2124
03.11.2020 16:28
Что будет выведено на экран в результате выполнения фрагмента программы...
selihanova
23.04.2021 00:45
Что будет выведено на экран в результате выполнения фрагмента программы...
tari123456
04.07.2021 02:06
Print (8/2)print (3 ** 2)print (8%2)print (12//5)Көмек...
kapitan2001
02.01.2020 12:33
Отметьте предложение, являющейся высказыванием...
baus100
11.12.2022 14:46
Щью телефона и электронног 7. Опишите следующие ситуации передачи информации на отдельнойбумаге и расскажите.ИсточникинформацииПриемникинформацииИсточникинформацииПриемникИнформации5....
svv190204
19.11.2020 16:29
Что это Провайдер? / Информатика Кто умный тут...
Zagyart
20.11.2021 06:22
с заданием по информатике, заранее...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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