Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
oljkejik
27.05.2020 05:45 •
Информатика
Всем ) : найти сумму тех элементов массива из 15 случайных целых чисел от -30 до 30, которые кратны 5
Показать ответ
Ответ:
tanya598
12.07.2020 16:15
Program zadacha;
var
a:array[1..15] of integer;
i,s:integer;
BEGIN
randomize;
s:=0;
for i:=1 to 15 do
begin
a[i]:=random(61)-30;
write(a[i],' ');
if a[i] mod 5 = 0 then s:=s+a[i];
end;
writeln;
writeln('S=',s);
END.
0,0
(0 оценок)
Популярные вопросы: Информатика
melani2
08.03.2023 09:42
4. Рассмотрите базу данных «Продажи НУЖНО СДАТЬ СЕГОДНЯ ...
lЕвгешкаl
10.01.2023 21:26
Сколько цифр 6 будет содержать результат вычислений 499–686+34310 в семеричной системе счисления...
Lartenok
04.02.2021 04:34
Какому логическому выражению соответствует следующая таблица истинности ...
Kara2006kara
30.05.2021 23:47
3 тапсирма БЖБ Paint графикалык редакторында суретти сактаудин дурыс жолын корсетиндер А) Сактау-Paint батырмасы-файл атауы Б) Paint батырмасы Сактау ретинде сактау Файл атауы...
Nauchniki
25.08.2021 12:27
3. Укажите недостающее понятие. а) человек мозг их компьютерКлавиатураСистемный блокПамятькомпьютерПроцессорб) человек - записная книжкаОперативная памятьжёсткий дискСистемный...
shkolnig2013
09.09.2022 09:56
Сор по информатике 8 класс...
ВладимирЛенин1
17.03.2020 00:36
Запиши команду открытия файла file7.txt Для записи данных обозначив переменную The_file Python...
К5О5Т5
13.05.2023 17:40
КРЧ НИЧЕГО НЕ НАДО ЧТО ПОСМТРЕЛИИ...
влада12342
02.05.2021 12:26
Составить программы: (Паскаль) 1-Целое число М вводится с клавиатуры. Если оно неотрицательное, то увеличить его на 3. В противном случае — уменьшить на 3. 2-Дано целое число....
kiktev
11.03.2021 03:33
Объясните процесс управления на примере использования телевизионного пульта Как с ручного управления осуществляется устранение разомкутости этой системы...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var
a:array[1..15] of integer;
i,s:integer;
BEGIN
randomize;
s:=0;
for i:=1 to 15 do
begin
a[i]:=random(61)-30;
write(a[i],' ');
if a[i] mod 5 = 0 then s:=s+a[i];
end;
writeln;
writeln('S=',s);
END.