Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Лдаслл183
16.09.2022 05:19 •
Информатика
Надо написать программу: ввести 10 любых чисел и посчитать сколько из этих чисел положительных
Показать ответ
Ответ:
vikacatcatcat
07.10.2020 09:14
Program suma;
const n = 10;
Var a:array [1..n] of integer;
i, sum:integer;
begin
sum:=0;
for i:=1 to n do read(a[i]);
for i:=1 to n do if a[i] < 0 then Inc(sum);
write(sum);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
meloo1
30.04.2022 09:52
Записать внутреннее представление десятичного числа 57 используя ,8-разрядную ячейку...
sbordog1337bogdan
08.03.2021 04:00
Сколько нулей в двоичной записи числа 4* 2 ^ 2014 + 2 ^ 2015 + 8 ?...
mustafina1990
08.12.2021 03:48
Из двух высказываний F = «Коля читает газету»; P = «Коля пьёт чай» составили сложное высказывание «Коля читает газету и пьёт чай». Выбери верный ответ. или F, но не P...
122344566
24.06.2020 01:20
Удаление элементов из массива. Задан одномерный массив размера 10. 1 -4 6 56 0 -6 4 23 8 9 Необходимо удалить его третий элемент. 1. Сколько элементов в массиве? 2. Сколько...
YAKOT1
19.09.2021 12:31
с информатикой 9 класс. Заранее огромное...
Lool199865
26.04.2022 01:14
Чтобы найти клад, нужно пройти по лабиринту 2 км на север, 3.5 км на восток, 4 км на юг, 2.2 км на юго- восток, 2.5 км на восток, 4.5 км на север, 9.5 км на запад и 2...
ilona122
27.09.2022 20:43
нужно заполните таблицу по типам IP-адресов...
Жилая
13.10.2021 17:25
1)Даны действительные числа а1, а2, …, аn. Поменять местами наибольший и наименьший элементы 2)Одномерный массив из 7 элементов заполнить случайным образом числами от...
Gdngz
11.12.2020 21:06
На рисунке – схема дорог, связывающих города А, Б, В, Г, Д, Е,Ж, и К. По Каждой дороге можно двигаться Только в одном направлении, указанном Стрелкой. Сколько существует...
silverg2005p00xxj
03.06.2021 09:11
Хто може потрібно дуже сильно і терміново...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
const n = 10;
Var a:array [1..n] of integer;
i, sum:integer;
begin
sum:=0;
for i:=1 to n do read(a[i]);
for i:=1 to n do if a[i] < 0 then Inc(sum);
write(sum);
end.