Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
MiraQeen
03.10.2021 21:45 •
Информатика
Заполнить массив 15-ю целыми случайными числами из диапазона [-30; 70]. паскаль или кумир
Ответ:
тигр186
08.10.2020 09:40
PascalABC.NET 3.3.5, сборка 1650 от 01.04.2018
Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(15,-30,70); a.Println
end.
Пример
-26 55 10 -13 9 -21 22 -1 16 23 42 -4 58 -11 59
0,0
(0 оценок)
Ответ:
Mitrel
08.10.2020 09:40
Var
A: array [1..15] of integer;
i: integer;
begin
for i := 1 to 15 do
begin
A[i] := random(101)-30;
write(A[i]:4);
end;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
eltinua
20.05.2020 06:06
Какое десятичное число при записи в системе счисления с основанием 6 представляется в виде 12346...
90Лилиана11111
18.03.2023 00:21
Выберите из предложенных вариантов. Минимальное 4-х значное число в двоичной системе счисления Максимальное 3-х значное число в четверичной системе счисления Максимальное 4-х значное...
чебурек2283
28.07.2020 10:51
Какая самая высокая температура была зафиксирована в России до 2020 года? Выбери самый точный вариант ответа. +40 °C +45 °C +50 °C +55 °C +60 °C...
Nastya32q
19.02.2020 08:51
Текстовый файл 24-s1.txt состоит не более чем из 106 заглавных латинских букв (A..Z). Текст разбит на строки различной длины. Необходимо найти строку, содержащую наименьшее ненулевое...
alenaizmailova
01.03.2020 23:19
Не могу найти информацию про blu ray диск. кто згает ответьте...
kedasvetlana
26.07.2020 05:18
1. Менің үйім ...Мом. 2. Ағаш күзде Т. Жалдак... түсті.3. Абай көшесі 4. Менің спорттық киімімтүсті.5. Күннің көзі түсті.6, Менің қаламым түсті....
кукушка137
26.07.2020 05:18
Найти точку пересечения линий y=2x+3 и y=3x-1...
spaisminGena
17.02.2021 00:03
Текст Семейные ценности и традиции есть у каждого народа. Они создаются веками, передаются из поколения в поколение и объединяют родных людей в единое целое. Свои неповторимые особенности...
keep19995
02.12.2020 17:19
Найдите значение выражения:...
ilariyao
16.12.2020 11:59
4 Work in pairs. Find fivedifferences.Pupil A: Look at this picture.Pupil B: Look at the picture on page 23.e.g. Pupil A: Is there any lemonade in picture B?Pupil B: No. Is there any...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(15,-30,70); a.Println
end.
Пример
-26 55 10 -13 9 -21 22 -1 16 23 42 -4 58 -11 59
A: array [1..15] of integer;
i: integer;
begin
for i := 1 to 15 do
begin
A[i] := random(101)-30;
write(A[i]:4);
end;
end.