Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
damiroid
11.08.2020 11:42 •
Информатика
Дан массив из 20 чисел заданных произвольным образом. вычислите сумму тех элементов которые кратны 3
Показать ответ
Ответ:
79025585606
02.10.2020 23:13
Var ar:array[1..20] of integer;
i,k:integer;
begin;
randomize;
writeln('Array:');
for i:=1 to 20 do
begin;
ar[i]:=random(100);
writeln(ar[i]);
if ar[i] mod 3=0 then k:=k+ar[i];
end;
writeln('Result:',k);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Котик505мяу
22.09.2022 21:35
с cif 10 в программе паскаль...
маринапашко2000
25.03.2023 19:38
Укажите,какие числа записаны с ошибкой,ответ объясните. а) 1100112 b) 459а8 c)2012 d)а5616...
tanyagrandf
04.11.2022 02:30
Какое минимальное основание должна иметь сс, если в ней могут быть записаны числа: а)110,1234,507 б)234,с23,1001...
ruuuuuyslan
04.11.2022 02:30
Какое отношение характеризует пару процессор – системный блок? 1. является элементом множества 2. входит в состав 3. является разновидностью 4. является причиной...
nizametdinovaalina
26.09.2020 02:52
2. с какой целью вы создаёте текст ? 2-3 примера 8. перечисли основные этапы подготовки текстового докуенкта на компютер...
nOMOSHHuK
26.09.2020 02:52
Ваш приятель дима живет в доме, в котором 8 квартир. вы не знаете, в какой именно квартире он живет. подойдя к дому, вы встретили девочку, которая знает номер квартиры...
wenefep07126
08.05.2023 02:04
Такова. нам дана программа, которая написана на pascal abc net: uses crt; var c: =random(1,16); begin textcolor(green); writeln( easymoney 1.1 ); textcolor(white);...
GretaD
08.05.2023 02:04
Написать программы в паскале! №1 произведение целых чисел №2 сколько нечетных среди n введенных? заранее...
Zhuldyz2005
08.05.2023 02:04
Составить программу вычисления суммы элементов массива состоящего из десяти случацных чисел из интервала 0 ; 10...
igor2285
28.04.2023 23:23
1.Правдоподобный доменный адрес а)ivanov..tver..ru б)school6.edu.ru в)Ivanov/tver/ru Г)ru.edu.school6 2.Дана электронная таблица: A B C 1 2 4 3 2 3 6 2 3 7 1 1...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
i,k:integer;
begin;
randomize;
writeln('Array:');
for i:=1 to 20 do
begin;
ar[i]:=random(100);
writeln(ar[i]);
if ar[i] mod 3=0 then k:=k+ar[i];
end;
writeln('Result:',k);
end.