Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
yliana63
03.04.2020 23:05 •
Информатика
Решите в паскале. если можно с блок - схемой. дана последовательность чисел. вывести на экран все отрицательные числа.
Показать ответ
Ответ:
SaintRomik
09.07.2020 18:43
Massive : Array[0..999] of integer; //создаем массив
Var j : integer; //описываем переменную счетчика
begin
readln(N); //колво элементов
for j = 1 To N Do
if Massive[j] < 0 then writeln(Massive[j])
readln()
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
gzemdihanova
15.01.2021 10:43
Определить скорость передачи файла, если текст, информационный объем которого составляет 100 Кб был передан за 2 секунды. ответ указать в Кбит/с....
nurbo55555555551
16.03.2022 00:47
Вычислите значения арифметических выражений при х = 3 (10 div x + 2)*(10 mod x + 3)/(12 mod 5)...
milana23456789
28.04.2022 21:08
Що таке кон єкція двох логічних виразів...
kashavcevaeliz
24.07.2022 05:26
MS WordИз каких блоков состоит организационная диаграмма по умолчаниию?a. руководитель подчиненные, коллегиb. директор, заместитель, сотрудникиc. руководитель и...
luizasham13
18.05.2020 23:29
ВАС ОЧЕНЬ НАДО Информатика 10 класс.Разработанная нами экспертная система в качестве вершин ответов не всегда указывает на семейство,а завершает свою работу указанием,например,класса...
Анастасия4390045
07.01.2023 17:57
Условие задания: (О, если x 0 Запиши программу на языке Паскаль для: y=3x, если 0 x 1. (у:3:0) х2, если х 1 Запусти программу и введи значение x = -20. Число выведенное...
alexalex251003
05.06.2022 13:42
Для чего нужна геперссылка...
alenapanina00
13.04.2020 14:29
Дан массив действительных чисел N членов подсчитать сколько в нем отрицательных положительных и нулевых элементов...
babaevgleb70
24.11.2020 14:23
Где можно скачать значки мак ос?...
makhovak007
18.07.2021 13:48
Какие инструменты входят в группу расширенных инструментов?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Var j : integer; //описываем переменную счетчика
begin
readln(N); //колво элементов
for j = 1 To N Do
if Massive[j] < 0 then writeln(Massive[j])
readln()
end.