Войти
Регистрация
Спроси ai-bota
alti1997
21.01.2023 00:03
Впаскале составить программу для ввода с клавиатуры 7 целых чисел. вывести на экран: 1) элементы массива с положительными значениями. 2)элементы массива с нечетными значениями 3)элементы массива, значения которых положительны и кратны 5
Нажмите на рекламу ниже и сразу увидите ответ
↓
Популярные вопросы:
LonFostYT
25.03.2022 23:38
Как расписать алгоритм картинки пройти к сосне...
evamakuh
07.02.2022 15:26
Переведите в двоичную систему счисления и выполните действия сложения, вычитания, умножения над двоичными числами: 200-N, 100-N (гдеN – день даты рождения).2 Выполните...
Lizaveta20021
16.08.2021 07:15
Ребята, 3 задания из пробника по информатике...
danabekzanova
21.01.2020 13:13
Қарапайым жарыс ойынының алгоритмі?...
Совушка200213
17.06.2021 08:11
Написатт код в Лазарусе для нахождения меньшего количества первых парных чисел для того что б получить суму больше 100...
masasedal
16.01.2022 03:41
Етри однаковою формою фасади будинкив : синий, жовтий, червоний, а також три однакови за формою дахи : зелений, фиолетовий и рожевый. яки будинки можна побудувати? скильки...
kukusiki12345
04.04.2023 17:29
Робота в python/створіть програму у якій одна змінна набуває значення файл а інша папка .метод який викликається з обох об єктів виводить ці слова работа в python / создайте...
Анна0809
30.06.2020 06:43
Необходимо в lazarus составить программу, которая будет выводить символы верхнего и нижнего регистра кириллицы. после самого последнего слова begin нужно что-то поменять,...
Егор111ив
30.05.2020 10:36
50 ! объясните код , надо блок схему сделать по немучто там отвечает за если, условие и т.д. заранее огромное вам за ! ...
qq302894
26.08.2020 20:25
Для решения с14 петя составил алгоритм и записал программу. петин младший брат олег удалил несколько крманд. определите, сколько команд удалил олег. восстановите программу,...
Ответ:
хахаха41
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 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота