Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
monkey06
04.09.2021 01:48 •
Информатика
Напишите программу подсчета количества введенных отрицательных из n чисел,произвольно введенных пользователем.,
Показать ответ
Ответ:
СветаТихая
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 оценок)
Популярные вопросы: Информатика
annapetrovakons
08.11.2020 21:35
Отметьте информационные процессы (действия с информацией). 1.работа на компьютере с клавиатурным тренажером; 2.установка телефона; 3.прослушивание музыкальной кассеты; 4.чтение...
Katerinka64rus
25.06.2020 08:11
Написать такую программу на паскале...
impalaSam
11.09.2022 18:00
Import java.util.Arrays; import java.util.HashMap; import java.util.Map; import java.util.Scanner; public class Ah { static int bin(int low,int high,int key,int a[]) { while(low...
Кузнечик0705
14.05.2022 08:15
Устройство считывать графическую информацию и переводить ее цифровую форму-это:...
Foxyinfog
25.08.2022 15:08
Втаблице dat хранятся данные измерений среднесуточной температуры в градусах (dat[1]-данные за первый день, dat[2]-за второй и т. д). определите какое число будет напечатано...
sabrinairnfd
20.02.2020 00:17
Имеется одномерный целочисленный массив из семи элементов: каким будет результат преобразования массива по следующему алгоритму?...
katikatikatiilozre2d
07.07.2022 22:00
Скорость оседания эритроцитов (СОЭ) для свиньи в норме равна 8 мм/ч. При воспалительном процессе эритроциты слипаются в комочки, средний диаметр которых на 30% больше диаметра...
Tittans7
13.01.2021 00:12
Схемы превратите в уравнения химической реакции: Cl 2 + Nа → NaCl СuCl 2 + Zn → ZnCl 2 + Сu AgNO 3 + КCl→ AgCl+ KNO 3 HCl + Al(OH) 3 → AlCl 3 + Н 2 О КNO 3 → КNO 2 + O 2 KMnO...
Marlie
13.01.2021 00:12
Що спільного між Сефевидівською Персією та Османською Туреччиною?!...
Памагиш
09.12.2020 12:35
В чем идея рассказа Пусть светит ?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.