Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
lechyktvoeimamke
17.07.2021 04:16 •
Информатика
Написать программу для заполнения линейного массива случайными числами с некоторого отрезка [a, b] в паскале . зараннее )
Ответ:
апааапаппаа
07.09.2020 09:35
Var a:array[1..n] of integer; // Вместо n - размер массива
i:integer;
begin
randomize;
for i:=1 to n do a[i]:=random(b-a+1)+a;
for i:=1 o n do writeln(a[i]);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
asya343434
07.03.2020 15:59
1) определить, является ли заданное целое число а двузначным числом. (разветвляющийся алгоритм) 2) вывести все нечетные однозначные числа. (цикл) 3) найти сумму нечетных элементов...
алина3870
02.03.2021 16:21
Даны три действительных числа. возвести в квадрат те из них, значения которых неотрицательны, и в четвертую степень - отрицательные...
лера2127
02.03.2021 16:21
Дан 2-х мерный 5*5массив целых чисел . в зависимости от введенной буквы выполнить следующее: -если введен символ s найти сумму элементов главной диагонали -если введен символ...
Miliafert
19.12.2022 08:02
Даны действительно числа x, y, z. вычислить u=max^2 (x, y, z) программу на паскале написать. ) вообще не понимаю...
Alica2653
19.12.2022 08:02
Объем информационного сообщения составляет 10 582 934. выразить его в байтах килобайтах и мегабайтах. количество информации в байтах и кб округлить до целых чисел. !...
irinakotik17
19.12.2022 08:02
Файл размером 40 кбайт передаётся через некоторое соединение за 80 секунд. определите размер файла (в кбайтах), который можно передать через это же соединение за 3200 секунд....
beauty227
08.03.2023 14:54
Переведите из плюсов на обычный язык паскаль данный код! #include iostream using namespace std;int fib(int n) { if (n = 2) return 1; return fib(n - 2) + fib(n - 1);}int f(int...
SusanneCherry
04.02.2022 13:55
Алгоритм вычисления значения функции F(n), где n — целое неотрицательное число, задан следующими соотношениями:F(0) = 0;F(n) = F(n / 2), если n 0 и при этом n чётно;F(n) = 1...
LOSS903903
09.04.2022 07:11
Дана программа begin writeln( winter ); writeln( Запомни! ) end на экране данные выведены следуйщий образом 1)winter Запомни! 2)Запомни! 3)winter Запомни! 4)winter...
Evangelinaa8
09.10.2020 01:24
После 1842 года Кенесары, оценив ситуацию и позиции для продолжения борьбы, перешел сосвоими аулами на правый берег р. Или иобъединился с отрядомОАбульмамбетаОАбудулефаОАбильмансураОАбульфеизоваОАбуханифы...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
i:integer;
begin
randomize;
for i:=1 to n do a[i]:=random(b-a+1)+a;
for i:=1 o n do writeln(a[i]);
end.