Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
sanyabuzin04gd
03.11.2021 07:07 •
Информатика
30 дана последовательность 4.5; -3.1; 2.1; 1.8; 0.13; -1.6; 1.7; 0.3 вещественных чисел.составить программу которая находит число отрицательных членов последовательности
Показать ответ
Ответ:
xaker228lol
02.10.2020 16:35
Запускаешь программу и пишешь сначала количество чисел в твоей последовательности: 8, далее вводишь свои числа.
var n,i,k:integer;
a:real;
begin
read(n);
while i<n do begin
read(a);
if (a<0) then k:=k+1; i:=i+1;
end;
writeln(k);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
sashkaaaxo
04.10.2021 17:02
Решите на Python Сумма квадратов По данному натуральному n вычислите сумму 12+22+32+...+n2. Входные данные Вводится натуральное число, не превосходящее 100. Выходные данные Выведите...
stasyaverh
19.02.2023 07:02
Составьте программу которая запрашивает число x и определяет чётное или не чётное это число...
abeldinova85
17.08.2020 20:58
спроектировать в тетради базу данных школа , содержащую сведения об учителях, учениках, классах, изучаемых предметах. информатика 11 класса что-то наподобие таблицы можно и схемы...
Балерина2017
07.03.2020 01:37
Написать диалог, в котором сравниваются 3 программы (по характеристикам): - microsoft word; -openoffice writer; -wordpad/...
valya414gogus
07.01.2022 23:05
Вопросе любимое лакомство приняло участие 300 школьников, каждый из которых назвал свое самое любимое лакомство. результаты опроса представлены на диограмме. сколько человек...
Elina123671
09.05.2023 12:08
Даны точки а (1; 2),в(-3; 0) и с(4; -2). определите координаты точки d так ,чтобы выполнять равенства : ab =cd и сверху стрелка...
89825518635e
12.01.2022 18:41
Словообразовательный разбор слова преподнести...
olga7882
07.09.2021 18:27
Охарактеризуйте причины возвышения пруссии в 18 веке. какими средствами правители пруссии решали поставленные ?...
Eliseyy
26.04.2022 05:23
(1) а ние: аргументированно ответьте на вопрос, цитаты в поверждение. кочему герою рассказа в. астафьева «фотография, на которой меня нет», так дорога пожелтевшая фотография?...
darina2468
09.11.2021 05:33
Мектепалды даярлық тобының перспективасы 2019-2020...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var n,i,k:integer;
a:real;
begin
read(n);
while i<n do begin
read(a);
if (a<0) then k:=k+1; i:=i+1;
end;
writeln(k);
end.