Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Dariya078
05.10.2020 02:06 •
Информатика
Склавиатуры вводятся массив из n целых чисел найти и вывести на экран все отрицательные элементы массива
Показать ответ
Ответ:
dauletkulova
16.09.2020 22:12
Begin
Readln(n)
For i:=1 to n do
Begin
Read(a[i]);
If a[i]<0
Then write(a[i],' ');
End;
End.
0,0
(0 оценок)
Популярные вопросы: Информатика
Vlad2691
09.05.2021 14:54
Буквы в слове перепутаны местами. Отгадай, о каком носителе информации идёт речь: аниме - Заранее большое...
Vlaad555
24.08.2022 23:45
Учебник 5 класса лого миры № 41 стр.65...
Ghdgfhs
24.08.2022 23:45
1)дано целое число n(больше 0). найти сумму 1+1/2+1//n(вещественное число). входные данные: ввести целое числоn(1 =n =20) выходные данные: вывести сумму 1+1/2=1/3+...
dashanovikova03
15.08.2021 16:54
Составит программу, которая вычисляет сумму первых n(ввести с клавиатуры) четных чисел pascalabc...
iradazlnv
24.02.2020 04:45
Укажите наибольшее целое значение а, при котором выражение (y – x a) ∨ (x + 4y 40) ∨ (y – 2x –35) истинно для любых целых положительных значений x и y....
lavira3
23.07.2020 19:37
Система программирования – это:...
aika113
12.11.2022 14:26
Придумайте графический представления поговорки знания собираются по капле....
Милки1319
26.05.2023 05:44
1.the not chat)for long; they just/met) 2.the lady is exhausted. how long ( she/ work out) ! present perfect simple or continuous...
AltoДима
26.05.2023 05:44
Яку будову має хребет і яке це має значення?...
azimova0113
26.05.2023 05:44
Чему равна плотность жидкости 200 л которой имеют массу 80 кг?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Readln(n)
For i:=1 to n do
Begin
Read(a[i]);
If a[i]<0
Then write(a[i],' ');
End;
End.