Используя датчик случайных чисел заполнить массив из 20 элементов неповторяющимися числами
Используя датчик случайных чисел заполнить массив из 20 элементов неповторяющимися числами
Гость
Ответ(ы) на вопрос:
ГостьИспользуя Паскаль:
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.
Не нашли ответ?
Похожие вопросы