Используя датчик случайных чисел заполнить массив из 20 элементов неповторяющимися числами

Question

Информатика

Эдюня

5 марта, 16:10

Используя датчик случайных чисел заполнить массив из 20 элементов неповторяющимися числами

+2

Ответы (1)

Знаете ответ на вопрос?

Макар · Answer 1

Используя Паскаль:

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.