Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Colin03
23.06.2021 14:34 •
Информатика
Определите сумму элементов массива болих 5
Показать ответ
Ответ:
Араиприпо
03.10.2020 07:55
Const n=10;
var
i,k:integer;
a:array[1..n] of integer;
begin
for i:=1 to n do
if a[i]>5 then inc(k);
writeln(k);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
4747384673838
06.05.2023 08:26
Написати в PascalABC програму переведення даного числа між десятковою та вісімковою системами числення....
Рома151999
15.06.2021 03:56
Выражение: а или не а и в большое )...
34Юлия2511
12.05.2023 00:38
Дано изображение выберите ответ данный порт DvIUSB 2.0PS/2...
evgeniaberezka
07.01.2023 10:05
На какой вкладке находятся элементы управления для установки значений свойств страницы в табличном процессоре MS Excel? Формат Настройка Разметка страницы Макет...
Ksenon102
04.07.2021 12:14
Заполнить двумерный массив с датчика случ. чисел. сформировать одномерный массив, закинуть произведение четных элементов по каждому столбику. найти сумму элементов двумерного,...
pika4y2
25.09.2020 09:33
1. с клавиатуры вводятся 2 числа. если первое число больше 5, то уменьшить второе число в 2 раза. (записать комментарий в каждой строке программы) 2. среди трех введенных...
leonru1
18.07.2020 08:23
Какие угрозы безопасности существуют при подключении к интернету?...
сидоровнекит
18.07.2020 08:23
Написать программу на языке паскаль (разветвляющийся алгоритм): 1) f=x2-3 (икс в квадрате минус три), x2=x*x (x в квадрате равен x умножить на x) 2) s=1/2ab (одна вторая...
ударник4г
25.04.2023 20:15
Вы подошли к светофору, когда горел красный свет. после этого загорелся желтый свет.сколько бит информации вы при этом получили?...
марина1925
23.11.2020 11:52
Как 0.2 перевести в натуральное число...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var
i,k:integer;
a:array[1..n] of integer;
begin
for i:=1 to n do
if a[i]>5 then inc(k);
writeln(k);
end.