Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
Фыффыф
31.10.2022 14:17 •
Информатика
Дана последовательность из n чисел.написать программу которая подсчитывает количество отрицательных чисел в последовательности.
Показать ответ
Ответ:
luiza2010
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 оценок)
Популярные вопросы: Информатика
tanyaNat82
05.02.2020 10:53
Дана гистограмма, определите ее составляющее составляющие. Согласно ифре определите ее назначение по приведенному списку - название диаграммыОзвания осей, легенда,...
Лес333
22.01.2023 13:02
Индивидуальная (для всех учащихся) 1 задание. Заполните таблицу....
andreykolomoytsev
17.07.2021 14:10
Язык: c++ каким образом можно подключить заголовок snmp, чтобы он работал. обычное #include (snmp) или #include (snmp.h) (вместо скобочек эти боковые галочки) не...
dicsi1
25.08.2022 08:45
Рассмотрите рисунок Определите характеристики процессора указаны на рисунк У НАС СОР...
SEMKA22444
09.01.2023 09:04
Отгадайте ребус по теме: безопасность в сети ...
пага45
14.12.2020 01:31
Заповніть таблицю: спираючись на текст, охарактеризуйте Йохима.(Сліпий музикант)...
124354i
13.07.2022 04:17
Электр тизиминин бир нуктесинен екиншисине 16мин ишинде 240 км заряд тасымалданып 1200 дж жумыс жасаган тизбектин осы еки нуктесинин арасындағы ток куши мен кернеуди...
5765314680
10.03.2023 10:00
Complete the email with the correct words. Hi Bella,We moved to a new house last week. It s really big. There s a lovely kitchen with a very modern cooker. There...
businkakiss
04.10.2020 23:46
Вставьте в пропуски Для нормальной жизнедеятельности растения и должны поступать во растения. Все растение для этого пронизано проводящими тканями. Проводящие ткани...
romashkoremrmber
04.10.2020 23:46
В равнобедренном прямоугольном треугольнике ABC гипотенузой является сторона AB = 4√2. Найдите угол между векторами AB и CA. Найдите произведение векторов AB и...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.