Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
mimimi055
02.06.2020 08:39 •
Информатика
Склавиатуры последовательно вводится 10 чисел. найти количество положительных чисел. решите на паскале.
Показать ответ
Ответ:
Manya1316
02.10.2020 08:56
Для меньшего строк кода, используем цикл FOR
var a,k,i:integer;
begin
k:=0;
for i:=1 to 10 do
begin
readln(a);
if a>0 then k:=k+1;
end;
write(k)
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
nikakrasovska
04.05.2020 19:58
Какое действие относится к форматированию текста? а)исправление опечаток б)проверка орфографии в)изменение отступа красной строки г)копирование фрагмента текста...
KrIs1girl
23.07.2022 03:20
Креке одновременно подошли три купца и три разбойника. всем необходимо было переправиться на другой, противоположный берег. у берега стояла лодка, которая могла вместить только...
begk55
23.07.2022 03:20
Определите разрядность кодирования звука в музыкальном файле, если он имеет следующие параметры: длительность воспроизведения 7,5 минуты, 6 каналов, частота дискретизации 384...
MaryLoveB
09.09.2022 17:11
Оптическое распознавание текста позволяет передавать рисунки по электронной почте применять к тексту электронный перевод, форматирование или преобразование в речь нет верного...
utopia2
10.04.2023 16:43
Напишите наибольшее число х, для которого истинно высказывание: (х кратно 4) И НЕ (х =16)...
друг32
05.09.2021 04:55
Почему господину Журдену потребовалось именно правописание...
Vika2947
26.03.2023 19:54
FlowersundDogsЯк перекладается?...
ruslikua3
09.01.2020 01:42
Задание: Исправьте ошибки. Он всего лишь описал случай, который случился с ним. Когда выступающий выступал, все его внимательно слушали. Более полно Некрасов изобразил образы...
KinezyOldside
09.01.2020 01:42
В стихотворении Осень Абай какие эпитеты, сравнения, олицетворения использовал поэт, что бы лучше передать нам картины осени? Выпишите их...
kiraivanova777
06.01.2023 18:47
Складіть електронний баланс реакції: NaNO3 + H2SO4 + Cu — NO2 + CuSO4+ Na2SO4 + H2ONa2SO3+02 — Na2SO4H2SO3 + Cl2 + H20 — HSO4 + HCL...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var a,k,i:integer;
begin
k:=0;
for i:=1 to 10 do
begin
readln(a);
if a>0 then k:=k+1;
end;
write(k)
end.