Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
Inosya
29.10.2022 22:08 •
Информатика
Используя датчик случайных чисел заполнить массив из 20 элементов неповторяющимися числами
Показать ответ
Ответ:
6469678
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 оценок)
Популярные вопросы: Информатика
Muzahabiba
03.11.2022 23:21
Что случается с сайтом после ddos атаки?...
dasha8872
03.11.2022 23:21
Прмогите ! 1) сколько раз выполнится тело цикла for n: =3 to 6 do write ( * ); ? 2) составьте программу, которая 6 раз выведет на экран фразу я люблю свою родину ! в строку...
angelina2334e35r5
21.10.2021 13:35
Подберите слово, которому могут предшествовать любые из букв к , па , ко ....
ФАНТА66666
22.01.2021 19:57
Скласти словник термінів (сленг програмістів, хакерів), що стосуються інформаційної безпеки...
gareevaa05
14.09.2021 17:56
Вопросы на размышление ...
милана5555555
23.03.2020 04:59
39 . 1 , измените следующие предложения по образцу . the teacher says, “i have good news for you.” — the teacher says (that) he/she has good news for us. 1. my sister says,...
NeZnaiYProsto
23.03.2020 04:59
Надо составить план на тему колонии в северной америке...
utseetstse
23.03.2020 04:59
Напишите эмеил на тему как ты провел свои выходные...
Vilka2008
23.03.2020 04:59
Перевести: 1.приходи в воскресенье к нам. вечером мы всегда дома. 2. утром все уходят на работу: отец едет на завод, мать в министерство, дети идут в институт. 3. завтра у...
983992087
23.03.2020 04:59
Расстояние между 360 км. найдите сколько км каждый поровоз, если один в 0,8 больше...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.