Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
ПОМОГИТЕ1111121
04.06.2023 03:03 •
Информатика
Решите в паскале. если можно с блок - схемой. дана последовательность чисел. вывести на экран все отрицательные числа.
Показать ответ
Ответ:
landeshforever
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 оценок)
Популярные вопросы: Информатика
Аня200011111
06.03.2023 07:39
Некотороетчисло в двоичной системе счисления записывантся как 1100001. определите число и запишите его в ответе в десятичной систеие счисления...
Violent111
14.10.2021 23:21
Рассчитать объём памяти, необходимой для представления 2-минутного фильма на экране монитора с расширением 320 × 240 пикселей и палитрой из 256 цветов.(Чтобы смена...
valeriyaa17
12.05.2022 15:57
Найдите ошибку, выдает несколько ответов program abc; var a, b: real; begin writeln( найти длину не занятой части отрезка a ); write( a= ); readln(a); write( b= );...
druy071
28.07.2022 21:08
По какому правилу числа следуют друг за другом? заполни пустые карточки 4 5 7 8 10 _ _ _ 16...
Поняха74
09.07.2022 19:04
Установіть відповідність між властивостями і значеннями, яких вони можуть набувати: 1.Form1.Color := 2.Form1.Caption := 3. Form1.Width := а) clRed б) 500 в) My program...
толя151
29.11.2021 02:04
Рассмотрите IP-адрес компьютера и определите его номер во внутрен- ней сети. IP-адрес: 135.174.234.56 и маска внутренней сети: 255.255.248.0...
ggezzzz
09.04.2022 01:51
Знание и понимание 1. Какие два подхода к измерению информации вы знаете?2. Что называется алфавитным подходом?3. Что означает понятие «мощность алфавита»?4. Как...
Alisarive
13.06.2020 14:05
Вопросы для контроля: 1. Дайте определение понятию компьютерный вирус и укажите основную цель, которую преследуют компьютерные вирусы.2. Перечислите признаки возможного...
ZNTV5
21.06.2020 13:34
Напиши небольшое эссе на тему «Зависимость подростка от Интернета». Проанализируй с родными дома...
кристина4тина
30.12.2021 16:58
Используя возможности сети Интернет, самостоятельно проанализируйте эволюцию развития процессоров компа- нии Intel....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.