Заполнить одномерный массив случайными неповторяющимися символами

@Vikabibiika · Регистрация: 20.10.2014

Author24 — интернет-сервис помощи студентам

заполните одномерный массив A(N)случайными неповторяющими симвалами

@кот Бегемот · 20.10.2014, 17:08

Pascal

var
a:array[1..100]of integer;
i,n,f,j:integer;
begin
randomize;
readln(n);
for i:=1 to n do
repeat
f:=0;
a[i]:=random(n)+1;
for j:=1 to i-1 do
if a[i]=a[j] then f:=1;
until f=0;
for i:=1 to n do
write(a[i],' ');
end.

@Vikabibiika 0 / 0 / 0 Регистрация: 20.10.2014 Сообщений: 5
		1
	Заполнить одномерный массив случайными неповторяющимися символами 20.10.2014, 16:14. Показов 3150. Ответов 1 Метки нет (Все метки) заполните одномерный массив A(N)случайными неповторяющими симвалами 0

	20.10.2014, 17:08

Заполнить одномерный массив случайными неповторяющимися символами

Решение