Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Serenael666
13.05.2021 03:24 •
Информатика
Дан одномерный массив.найти сумму чисел меньше 8
Показать ответ
Ответ:
elvirravel
02.10.2020 10:43
Const
n = 16;
var
a: array[1..n] of integer;
i, s: integer;
begin
Randomize;
Writeln('Элементы массива');
s := 0;
for i := 1 to n do
begin
a[i] := Random(20);
Write(a[i]:3);
if a[i]<8 then s:=s+a[i]
end;
Writeln;
Writeln('Сумма элементов, меньших 8, равна ',s)
end.
Тестовое решение:
Элементы массива
8 5 12 10 4 7 11 18 13 17 18 2 5 1 3 16
Сумма элементов, меньших 8, равна 27
0,0
(0 оценок)
Популярные вопросы: Информатика
PooКякя
09.02.2022 11:12
Кто шарит в информатики Кто шарит в информатики...
Sinnysis
09.03.2021 22:23
Решить задачу, используя любой цикл (с предусловием, либо постусловием). S=10+(2*x)/3+(3*x)/3+(4*x)/3+⋯+(n*x)/3...
DazaOtaku
29.12.2021 15:15
В каком из условных операторов допущена ошибка? 1. if b=0 then writeln ( ‘Деление не возможно‘) 2. if a:=15 then a=15 3. if a b then max:=a else max:=b 4. if (a b) and...
мак119
29.12.2021 15:15
3. Розрізняють дві форми структурирозгалуження. Яку з них зображенона малюнку?(Слово є власною назвою: 1. Хибно— слово написати з малої літери,...
девочка261
19.03.2020 14:33
сделайте это в пайтане, или в онлайн пайтане. 12 номер делать...
tsudakatyap0bt0w
11.11.2021 18:15
Написать и отладить программу по следующему условию: Сформировать квадратную матрицу порядка N по правилу: A[i, j]=sin((i 2 -j 2 )/N) и подсчитать количество положительных...
karina24264
23.01.2023 02:38
Поясните различия между таблицей, формой и отчетом...
ilyaokorokov777
19.01.2022 11:29
Программа должна вычислять значение функции в зависимости отвведенного пользователем числа х (формула берется в соответствии свариантом, смотреть последнюю страницу)....
natalicharry
18.09.2021 16:22
1. запишите числа в развернутой форме 34510, 6528, а3с916 2. переведите числа из десятичной системы счисления в другую. 24510→а2 40410→а8 198710→а2 67310→а16 4534810→а16...
rafael2003ggwp
27.10.2020 21:18
В школе действовали физический, математический кружки и факультатив по информатике. Из о человек оказалось, что в информатикой занимаются 13 человек, математикой – 14,...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
n = 16;
var
a: array[1..n] of integer;
i, s: integer;
begin
Randomize;
Writeln('Элементы массива');
s := 0;
for i := 1 to n do
begin
a[i] := Random(20);
Write(a[i]:3);
if a[i]<8 then s:=s+a[i]
end;
Writeln;
Writeln('Сумма элементов, меньших 8, равна ',s)
end.
Тестовое решение:
Элементы массива
8 5 12 10 4 7 11 18 13 17 18 2 5 1 3 16
Сумма элементов, меньших 8, равна 27