tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Напишите программу подсчета
Напишите программу подсчета количества введенных отрицательных из n чисел,произвольно введенных пользователем.,
Gregorie
2 31.08.2019 03:20
2
Ответы
Yulchan23
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
lizadaf2003
26.10.2020 08:56
с домашним заданием по информатике . . Составьте программы рисования слов: сон, фон*примерно вот такая программа должна получиться: шаг, шаг, поворот, прыжок и т....
TEmik777777777
26.10.2020 08:57
Двоичная система счисления...
AlexaKim04
25.08.2019 07:40
Дан массив из 10 элементов. найти сумму 2 и 9 элементов...
romancsosnin
25.08.2019 07:40
Какой объем видеопамяти в килобайтах нужен для хранения изображения размером 640 x 250 пикселей и использующего 16 цветовую палитру...
drshev
25.08.2019 07:40
Постройте таблицу истинности для логического выражения не (а или в) в экселе...
annaYanna1
25.08.2019 07:40
Напишите программу в паскале abc, и нарисуйте к ней блок-схему. вводится массив из 15 элементов,нужно определить сколько эл. массива будут между его макс и миним....
Lilo111111111
08.08.2019 05:50
Люди каких профессий работают с символьной, графической и звуковой информацией?...
sabina9262
08.08.2019 05:50
Сообщение, записанное буквами из 32 символьного алфавита, содержит 25 символов. какой обьем информации оно несет?...
adilymnuk
18.04.2019 11:14
Могут ли забанить в режиме инкогнито...
aleksandrbersh0
18.04.2019 09:32
Программирование pasalabc сборка 1829тема одномерные массивыв чем проблема? предположение одноглазого препода: т.к. цикл в цикле нельзя при операторах for использовать...
Популярные вопросы
Добрий вечір, будь ласка задайте хитрі питання про процес дихання...
3
К фрагментации кольчатые черви и гидра; 2 моллюски и земноводные;...
2
Метафоры из произведения журавлиный Крик,6 предложений...
2
Как окислительные и восстановительные свойства элементов III...
1
Дай определение понятий:1 Микроэволюция2 Видообразование 3 Макроэволюция...
1
научиться готовить(посмотреть туториалы и т.д.)...
1
У якому випадку малюнок один зображеного крутило сейчас заходите...
3
Сколько сторон имеет правильный многоугольник,если его внутренний...
2
Задача про масло Извините за качество,такой переводчик....
1
Історичний портрет П. Орлика...
3
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.