Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Pomogite20000p
14.08.2020 05:13 •
Информатика
Напишите программу подсчета количества введенных отрицательных из n чисел,произвольно введенных пользователем.,
Показать ответ
Ответ:
Мія111
06.10.2020 06:15
Var
A:real;
o,n:integer;
Begin
o:=0;
Write('n = ');ReadLn(n);
For n:= 1 to n do
Begin
ReadLn(A);
if A < 0 then o:=o+1;
End;
WriteLn('Количество отрицательных, среди введённых: ',o);
End.
0,0
(0 оценок)
Популярные вопросы: Информатика
arkatovazara
07.07.2022 09:31
1. по данным ip-адресам определить, к сети какого класса они принадлежат, получить ip-адрес сети, маску сети и ip-адрес широковещательной рассылки в данной сети: 98.152.43.182 19.160.138.248...
Вазген228
18.04.2021 06:26
Безусловный цикл- цикл с цикл с ! заранее !...
lanceva3
18.04.2021 06:26
Напишите названия известных вам программ, с которых можно открыть файлы со следующими расширениями: а) txt б) docx в) xls г) ppt д) bmp е) zip...
alikalik3
18.04.2021 06:26
Составьте программу, которая вычисляет оптимальный вес, сравнивает его с реальным и выдаёт рекомендацию о необходимости поправиться или похудеть (с указанием, на сколько кг нужно поправиться...
shvetzovayuliy
18.01.2021 06:49
Найти сумму квадратов от 1 до n( s=1+4+9+)...
Жания27
02.04.2021 16:02
Для чего используется графический редактор paint?...
ирина1629
28.02.2023 05:16
15. закончите предложение линейный алгоритм - . отметьте общие имена объектов „ машина ’ ‘ ‘ берега москва байкал пушкин операционная система клавиатурный тренажер заранее...
anastasia3004
01.04.2022 11:57
Получено сообщение информационный объем которого равен 2 в 10 степени чему равен обем этого сообщения в мегабайтах...
Соня12131415
22.07.2020 05:45
Информационное сообщение на языке, первоначально записанное в 8-битовом коде кои-8, было перекодировано в 16-битную кодировку unicode. в результате его объем увеличился на 8000 битов....
darinanugmanova
22.07.2020 05:45
Ниже записана программа. получив на вход число , эта программа печатает два числа, и . укажите наименьшее из таких чисел , при вводе которых алгоритм печатает сначала 3, а потом 10.var...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
A:real;
o,n:integer;
Begin
o:=0;
Write('n = ');ReadLn(n);
For n:= 1 to n do
Begin
ReadLn(A);
if A < 0 then o:=o+1;
End;
WriteLn('Количество отрицательных, среди введённых: ',o);
End.