Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
рита2008
02.11.2022 16:50 •
Информатика
Дана последовательность из n чисел.написать программу которая подсчитывает количество отрицательных чисел в последовательности.
Показать ответ
Ответ:
straer122122
02.10.2020 22:55
Var a,s,i,n:integer;
begin;
randomize;
readln(n);
writeln('False array:');
for i:=1 to n do
begin;
s:=random(-10,10);
writeln(s);
if s<0 then inc(a);
end;
writeln('Result:',a);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
alins3
30.03.2023 13:30
Переведите число 111011011110110110101 в сс с основанием 4...
nastiasteinoxz34d
11.10.2022 03:04
Как прыгнуть в гиперпространство в моде на майнкрафт 1.7.10 parzi s star wars mod плачу 40...
serbakovm888
12.01.2020 20:34
Картинная галерея представляет собой собой прямоугольник 2 на 5 клеток (см. рисунок). вход в галерею ведет сразу в комнату номер 1, двери есть между любыми двумя комнатами, соседними...
Lraaq
12.01.2020 20:34
3. в системе программирования pascal abcполните проверяемое w2 для исполнителя point(закрасить коридор переменной длины) (рис. 3.30)..............
Tata123N
16.12.2020 23:17
Реши и выбери верный ответ. (FAT16) В Блокнот (Notepad) введён текст: питание. 1. Информационный объём текста: байт. 2. Занимаемый объём на флэш-диске: ....
Viki258
23.09.2020 04:30
Дайте правельний ответ на всі вправи НАДО...
гарамьбм
08.12.2021 06:59
1. Составить программу и посчитать чему равно R 2. Составить блок-схему и рассчитать A...
Катерина122333
26.12.2021 08:01
Сумма цен реализованных товаров (работ, услуг) – 20000 млрд. руб. Сумма цен товаров, проданных в кредит, - 1000 млрд. руб. Сумма платежей по кредитам составляет 400 млрд. руб.,...
224678
08.09.2022 14:46
Составьте таблицу истинности логического выражения: Ā^B→(CVĎ)...
medweghonok
28.10.2022 14:25
Юнна Мориц Собака и Артист АНАЛИЗ...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin;
randomize;
readln(n);
writeln('False array:');
for i:=1 to n do
begin;
s:=random(-10,10);
writeln(s);
if s<0 then inc(a);
end;
writeln('Result:',a);
end.