Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
kategorn1
01.10.2020 05:45 •
Информатика
30 дана последовательность 4.5; -3.1; 2.1; 1.8; 0.13; -1.6; 1.7; 0.3 вещественных чисел.составить программу которая находит число отрицательных членов последовательности
Показать ответ
Ответ:
AnyaNaglova
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 оценок)
Популярные вопросы: Информатика
varenik506
15.02.2020 16:43
Кто такой эйлер,в честь кого названа графическая схема,обозначающая отношения между множествами? )...
VanilRio
15.02.2020 16:43
Найти произведение чисел от 1до 10,в паскале...
coolflex
15.02.2020 16:43
Написать программу на паскале, которая вводит массив из n целых чисел и выводит на экран номера отрицательных элементов и сами эти элементы. протестировать программу...
missvaleria2
03.04.2022 15:08
Дети приезжают в летний лагерь. В первый день приезда детей распределяют по отрядам. Рассмотри фрагмент программного кода. Определи в какой отряд будет направлен...
igordyatenko
22.06.2022 17:23
Написать программу в python! даны действительные коэффициенты a, b, c, при этом a ! = 0. решите квадратное уравнение ax²+bx+c=0 и выведите все его корни. формат ввода...
20000304
07.01.2023 05:25
Сподробным решением! ирена любит мороженое с фруктами. в кафе был выбор из таких вариантов: пломбир с орехами; пломбир с бананами; пломбир с черникой; шоколадное...
olenapolova4
07.01.2023 05:25
Найдите x: 1) 8 в степени x битов=32 кбайт 2)16 в степени x битов=128 кбайт...
thesketchyoup081qt
04.07.2022 00:26
Решить . составьте программу для выполнения на экране рисун¬ка из пяти фигур разного цвета и размера....
hehdsfg1
26.03.2023 05:51
1. составить блок схему по нахождению произведению нечётных натуральных чисел от 33 до 55. 2. составить блок схему по нахождению суммы всех чисел от 9 до п....
vikshaaa
17.02.2022 16:16
Вчисловой последовательности определить сумму и произведение, последняя цифра у которых равна 5 20...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.