Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
Bong144
06.04.2022 12:33 •
Информатика
Паскаль для решения следующей : заполнить целочисленный массив 20-ю случайными элементами в диапазоне от 20 до 40 и найти сумму лишь нечётных номеров (элементов) массива.
Показать ответ
Ответ:
gulnazira2005
03.10.2020 16:55
Const
n = 20;
var
a: array[1..n] of integer;
i, s: integer;
begin
randomize;
for i := 1 to n do
begin
a[i] := random(20) + 20;
write(a[i], ' ');
if i mod 2 = 1 then
s := s + a[i];
end;
writeln();
writeln(s);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Ульяна122004
22.03.2023 15:48
Что такое байт, килобайт, мегабайт и гигабайт?...
aidos0278gmailcom
28.01.2020 12:09
Файл размером 8,7 Мбайта передали по каналам связи со скоростью 64000 бит/с. Сколько примерно минут занял этот процесс?...
Waxcbortb
02.01.2021 11:16
Задача 1. Складіть програму, яка у введеному користувачем списку з 5 цілих чисел знаходить найменший елемент та замінює його на число 100. Виведіть змінений список як результат....
nikoszahar
20.12.2021 00:46
Дано целое число, записанное в десятичной системе счисления в виде строки, возможно, с ведущими нулями. Участники делают ходы по очереди. Ход заключается в удалении из записи...
ирмук
08.09.2022 01:57
Вивести табличку множення на 9.Зробити цю задачу за до циклу whіlе і циклу fоr(Python)...
hchv
25.10.2020 07:31
Дан фрагмент таблицы истинности выражения f проверить все строки на выполнения истиности...
Polly2011
20.04.2020 23:35
... В каком городе Алжира и Туниса, из представленных в таблице, зафиксировано наименьшее количество жителей? Для одного формула понятна, но как сделать объединение? ИНДЕКС($A:$A;ПОИСКПОЗ(МИНЕСЛИ($B:$B;$C:$C;...
AutWezer
07.05.2021 10:50
С решением. за правильный ответ....
Slavkamyroslavka
21.07.2022 03:33
В результате изотермического расширения газ совершил работу 500 Дж. При этом а. внутренняя энергия газа увеличилась на 500 Дж б. газ получил 500 Дж количества теплоты в. газ...
renger100
01.12.2020 10:09
В равнобокий трапеции АВСД , О-точка пересечения диагоналей. Прямая МО перпендикулярна плоскости трапеции . Доказать , что плоскости АМС и ВМД перпендикулярны...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
n = 20;
var
a: array[1..n] of integer;
i, s: integer;
begin
randomize;
for i := 1 to n do
begin
a[i] := random(20) + 20;
write(a[i], ' ');
if i mod 2 = 1 then
s := s + a[i];
end;
writeln();
writeln(s);
end.