Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
lionkeepo
26.02.2022 16:40 •
Информатика
Используя датчик случайных чисел заполнить массив из 20 элементов неповторяющимися числами
Показать ответ
Ответ:
dianaknyazeva
27.06.2020 01:30
Используя Паскаль:
var rndm: array[1..20] of longint;
i,n1.n2,c : longint;
begin
for i:=1 to 20 do rndm[i]:=i;
for i:=1 to 100 do begin
n1:=random(19)+1;
n2:=random(19)+1;
c:=rndm[n1];
rndm[n1]:=rndm[n2];
rndm[n2]:=c;
end;
for i:=1 to 20 do write (rndm[i],' ');
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
камомармалато
09.12.2021 11:32
Задание 2. Проанализируй программу проекта робота,на рисунке 4. Определи функцию каждого командного блока.1Составь программу робота представленного ниже Загрузи программу в робота...
mmv2721ozx8sx
18.04.2023 03:39
Какие ты знаешь сходства и различия создания презентации на компьютере и плакате...
Sawa1605
12.01.2020 07:30
С++ напишите программу, которая выводит на экран все цифры числа, начиная с первой. допустим, вводишь 123, а программа выводит 1 2 3....
aaysu228
09.08.2021 09:33
Написать программу, которая выводит значения дробных переменных а, b и с в одной строке. каждое число должно быть выделено с двумя знаками после десятичной точки....
hunateВадим2827854
08.06.2023 07:32
Рассчитайте объем видеопамяти необходимой для хранения графического изображения занимающего весь экран монитора с разрешением 1280*1024 и палитрой и 65536 цветов...
NIKESHNELY
07.05.2020 21:06
На обработку поступает натуральное число, не превышающее 10^9. нужно написать программу, которая выводит на экран произведение цифр числа, кратных 3. если в числе нет цифр, кратных...
9000Кира0009
13.06.2021 12:07
Дано четырехзначное число. Написать программу, которая выводит на экран число, образованное при перестановке первой и второй, третьей и четвертой цифр заданного числа Входные данные:...
LobovM
20.01.2021 08:04
1. Назовите этапы развития информационных систем. 2. Дайте определение информационной системы современной компании. 3. Охарактеризуйте организацию как сложную иерархическую систему....
AgentDaleCoop
01.06.2021 07:14
Функциональная схема системы персональный компьютер...
Vakluver
27.11.2021 17:38
Задание 1. Классный руководитель 11 класса создает таблицу расписания уроков своего класса на неделю. Какой формат данных ячеек используется в столбцах B,C,D,E?....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var rndm: array[1..20] of longint;
i,n1.n2,c : longint;
begin
for i:=1 to 20 do rndm[i]:=i;
for i:=1 to 100 do begin
n1:=random(19)+1;
n2:=random(19)+1;
c:=rndm[n1];
rndm[n1]:=rndm[n2];
rndm[n2]:=c;
end;
for i:=1 to 20 do write (rndm[i],' ');
end.