Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Slavkamyroslavka
02.04.2023 11:02 •
Информатика
Паскаль для решения следующей : заполнить целочисленный массив 20-ю случайными элементами в диапазоне от 20 до 40 и найти сумму лишь нечётных номеров (элементов) массива.
Показать ответ
Ответ:
hobitmaksovtize
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 оценок)
Популярные вопросы: Информатика
dana1835
30.12.2021 12:20
Определите значение переменной «c» после выполнения следующего фрагмента программы (на с): a = 5; a = ++a + 6; b = –a; c = a – 2*b; *...
Dag18y5557hvvhi
24.08.2020 23:58
Вычисли значение математического выражения в MS Excel: (51+92)−2(79:(6+8)). (ответ округли до сотых...
Fin208
11.05.2021 16:02
Дайте характеристику основной памяти ПК...
Aruuuuuuuu
18.07.2021 21:57
Составьте программу на языке Си для вычисления y при любом введенном значении x. y=1.3e^(1.3(x-4))+0.4x^(3)-2x^(2)-8.1...
kostenkoulana7
14.04.2020 23:29
8. Выучи стихотворение М. Алимбаева и запиши его по памяти. Выполни морфологический разбор выделенных имён существи-тельных.Бабушка-мастерица,Ткёт ковёр-алаша“.Радугаз в...
никитапиунов
25.08.2020 02:05
Что делать если поссорилась с своими лучшими подругами из-за ерунды...
ник3742
25.08.2020 02:05
Первоклассник первый раз идет сегодня в школу...
Gobbygo
06.02.2020 02:11
Запишите целые числа которые входят в полученный интервал (-4,3;1) (-3,9;2)=...
OlegJexLP
21.01.2022 20:49
8-тапсырма. Берілген сөйлемдерді құрмалас сөйлем деп тануға бола ма? Сөйлемге құрылымдық талдау жасау арқылы түсіндіріңдер....
DoKim01
11.07.2021 23:13
20. Глядя на картинки, дополни рассказ. Exemple:A Toulouse, il y a un magasin.Dans ce magasin, il y a une vitrine,Dans cette vitrine......
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.