Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
emiliahouse
11.06.2022 08:23 •
Информатика
Заполнить массив из 15 элементов случайным образом.вещественными значениями x (22 больше или равно х < 23).
Показать ответ
Ответ:
K1rysha
15.07.2020 13:21
Const N=15;
var A:array[1..N] of real;
i:integer;
begin
for i:=1 to N do begin
A[i]:=random(22,100);
write(A[i],' ');
end;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Женя11134
16.07.2022 06:21
Задание 1 ( ). Рассчитать значения y при каждом х. х = 3, 4, ..., 15: y = 7t3 - 6t + 10, если t = x - 2. Задание 2 ( ). Составить программу, которая запрашивает пароль...
Dimn11
14.07.2020 18:56
4. Французский математик в 1642 году создавший вычислительную машину1)Чарлз Бэббидж2)Блез Паскаль3)ОАда Лавлейс4)Говард Айкен...
герман2031
29.07.2022 21:53
Напишите программу на языке Scratch который кот проходит к точке 0,100 и потом обратно в точке помагитеее...
kall4
24.07.2021 09:21
Штирлицу удалось похитить пароль от сейфа с секретными материалами — группенфюрер мюллер неосторожно написал его на бумаге и, порвав на несколько частей, выбросил...
nikasuper09
24.07.2021 09:21
Решит с ! в кодировке кои-8 каждый символ кодируется одним байтом. определите информационный объем сообщения из 30 символов в этой кодировке...
Diamond1111111
31.01.2020 22:15
Дано целое число. если оно отрицательное, то вывести на экран его модуль, иначе напечатать его удвоенное значение. , надо❤️...
ruzall
14.03.2020 07:21
Приведите от 3 до 4 примеров каждой группы беспозвоночных животных (Простейшие, Губки, Кишечнополостные, Мшанки, Черви, Моллюски, Брахиоподы, Иглокожие, Морские лилии,...
boosoosv
14.03.2020 07:21
Определите давление деревянного цилиндра высотой 20 см (p=600кг/m3) на плоскость стола...
den532
14.05.2023 22:40
написать эссе на тему: деятельность юриста-блогера: специфика работы. Связать с проффесиональной этикой...
TaPo4оК
07.06.2020 21:17
Боря, Витя и Саша играли в слова. Каждый составил список по 10 слов. Если слово есть у всех, оно вычеркивается; если только у двоих – оба получают по одному очку;...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var A:array[1..N] of real;
i:integer;
begin
for i:=1 to N do begin
A[i]:=random(22,100);
write(A[i],' ');
end;
end.