Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
MisSashaKotik
23.11.2021 20:53 •
Информатика
Дан массив a из 20 элементов.. найти количество положительных элементов массива. результат вывести на печать..
Показать ответ
Ответ:
seredaromaxa
10.07.2020 17:06
Program p1;
var a: array[1..1000] of integer;
var n, i, c: integer;
begin
readln(i);
c := 0;
for n := 1 to i do
begin
readln(a[i]);
if a[i] > 0 then c := c + 1;
end;
writeln(c);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
532настя43510
08.08.2021 04:55
Для двумерного массива целых чисел размерностью 5 на 5/ найти среднее значение положительных элементов массива...
vadimplay2017
26.12.2020 22:55
Складіть проект у середовищі скретч2, у якому виконавець намалює три квадрати різних кольорів зі сторонами 100 кроків, якщо до нього доторкається вказівник миші?...
Хамеда
12.08.2021 05:00
С ТЕКСТОВОГО РЕДАКТАРА WORLDPAD ЗАПИШИ ПО ВЫБРОНОЙ ТЕМЕ : ПЛАНИНТЕРЕСНОЮ ИНФОРМАЦИЮРЕЗУЛЬТАТЫ ИСЛЕДОВАНИЯВЫВОДЫИСПОЛЬЗУЮ ЛИТЕРАТУРУ...
raiskadem
17.04.2023 00:00
PYTHON/Напишите программу, которая в последовательности натуральных чисел находит среднее арифметическое чисел, кратных 8, или сообщает, что таких чисел нет (выводит «NO»). Программа...
electreheart
11.04.2022 00:29
C#; Нужно Заранее благодарен! Напишите в редакторе кода дополнительный код числа -5 длиной 8 регистров (двоичных цифр), а затем с новой строки – дополнительный код числа 9, тоже длиной...
Veronicia
11.04.2022 00:29
В одновимірному масиві визначити номер мінімального по модулю елемента c++...
draft1challenge
06.04.2020 06:20
5. Для заданного числа х вычислите значение функции y: у=х^2− √57−0,3х/х−4...
Якорь512
01.05.2021 09:37
Для заданного числа а вычислите значение суммы: а−1/2+а−3/4+а−5/6+ ⋯ +а−21/22...
ANgeLOL1112
15.02.2020 08:33
визначте перевантажені функції minimum для знаходження найменшого з трьох цілих чисел, чисел з плаваючою комою одинарної та подвійної точності c++...
KSeNiYa2800
22.09.2021 18:40
№ 1. Какие из следующих языков над алфавитом {0, 1} являются регулярными? (несколько вариантов ответа) 1 строки из числа нулей 2 строки из составного числа нулей 3 строки, в которых...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var a: array[1..1000] of integer;
var n, i, c: integer;
begin
readln(i);
c := 0;
for n := 1 to i do
begin
readln(a[i]);
if a[i] > 0 then c := c + 1;
end;
writeln(c);
end.