Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
женьшенье
03.01.2023 11:10 •
Информатика
Составить программу, которая создает массив случайных чисел, выводит его на экран и вычисляет сумму всех его элементов. random=10 взять
Показать ответ
Ответ:
polozyurayuras
02.10.2020 05:47
Const
N = 10;
Var
a: array[1..N] of integer;
S, i: integer;
Begin
Randomize;
For i:= 1 to N do
Begin
a[i]:= Random(10);
write(a[i]:3);
End;
writeln;
writeln;
S:= 0;
For i:= 1 to N do
S:= S + a[i];
write(' Сумма элементов массива: ', S);
End.
0,0
(0 оценок)
Популярные вопросы: Информатика
zombdanidani
18.09.2022 14:25
Дан одномерный массив r (4,2,3,1,5,1,2,7,6) найти: 1. количество элементов 5 2. количество элементов 5 3. максимальный элемент и его номер 4. получить новый массив по правилу( фото...
Rendagor
26.04.2021 13:09
2. вывести на консоль значения первых десяти целых чисел при оператора цикла while....
Crazs
02.12.2022 14:24
Дан фрагмент электронной таблицы, в которой символ $ используется для обозначения абсолютной адресации : Формулу, записанную в ячейке D1, скопировали в буфер обмена и вставили в...
минимаус9
06.06.2021 20:31
Найти произведение двузначных нечетных чисел кратных 13 Phyton...
lora1981
08.06.2020 06:42
Составьте блок-схемы и запишите алгоритмы на алгоритмическом языке, 1.а) Известны стороны прямоугольника а, b. Найдите периметр прямоугольника. ...
NONONONONO228
02.05.2023 04:14
На право пойдешь счастье найдешь, на лево пойдешь жизнь потеряешь,прямо пойдешь счастье найдешь.нарисуйте схему циклического алгоритма...
baha2001zzz
10.12.2021 05:43
Нарисуй обложку для книги 3 мушкетера по Э. Успенскому.Нарисуйте сами или найдите в интернете сайт с обложкой руки растут не из того место)))...
gjkbyf6789
10.12.2021 05:43
) Какой объём (н.у.) водорода можно получить при взаимодействии 0,25 г магния с 2) избытком разбавленной серной кислоты? Какой объём кислорода использован при обжиге сульфида цинка,...
32519
10.12.2021 05:43
1.Запишіть сполучення слів у дві колонки: 1) з частками, написаними через дефіс ; 2) з частками, написаними окремо .Слухати кого( небудь ), любив ( таки ), збудуй ( но ), злякався...
Santastiff666
10.12.2021 05:43
1. Сформулировать правила, которых необходимо придерживаться при приготовлении обеда; 2.Составить схему расположения столовых приборов и посуды на одну персону для сервировки стола...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
N = 10;
Var
a: array[1..N] of integer;
S, i: integer;
Begin
Randomize;
For i:= 1 to N do
Begin
a[i]:= Random(10);
write(a[i]:3);
End;
writeln;
writeln;
S:= 0;
For i:= 1 to N do
S:= S + a[i];
write(' Сумма элементов массива: ', S);
End.