Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Мэри6669
13.10.2021 06:45 •
Информатика
Составить программу, которая формирует массив из 13 случайных целых чисел, принадлежащих промежутку [-20; 20] и выводит эти числа в строку через запятую
Показать ответ
Ответ:
almazina1
07.10.2020 08:12
Var
A: array [1..13] of integer;
i: byte;
begin
randomize;
for i := 1 to 13 do
begin
A[i] := random(41)-20;
write(A[i],', ');
end;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
ЛамповаяУмничка
15.05.2021 15:11
Сколько страниц будет найдено по запросу москва & (париж | лондон)...
tattazhutdinov
14.09.2022 21:03
Як виконується наведений фрагмент алгоритму (Мал. 3.46, г) в Scratch 2?...
derment1
01.03.2020 22:54
Решите . выражение: tg45 - tg15/ 1+tg15*tg45=...
shahmina123
01.03.2020 22:54
Вслове костёр буква с твёрдая или мягкая?...
SANNIKOVDIMA
01.03.2020 22:54
Сочинить короткую сказку про снегурочку...
Anastasiya12377
01.03.2020 22:54
2. осуществите следующие превращения: sо2 → sо3 → nа2sо4 → nас1 для реакции 1 составьте схему электронного ¬са, укажите окислитель и восстановитель, процессы окисления и...
LerikKerik123
01.03.2020 22:54
Подскажите ! найдите закономерность и продолжите последовательность чисел. 18, 25, 27, 34, 36, 43, , , ,...
BoberTV
01.03.2020 22:54
Подчеркни желтым карандашом глаголы, у которых при образовании повелительной формы усекается основа глагола слова : вскопай позвони попрыгай сиди....
Mirskaya
01.03.2020 22:54
Почему нельзя приглашать гостей без спросу...
amalia110
01.03.2020 22:54
Вчем отличие дальнорукости от близорукости?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
A: array [1..13] of integer;
i: byte;
begin
randomize;
for i := 1 to 13 do
begin
A[i] := random(41)-20;
write(A[i],', ');
end;
end.