Информатика, опубликовано 2018-08-22 22:03:00 by Гость
Используя датчик случайных чисел заполнить массив из 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.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.