создать массив из различных элементов.

@nastenkaa · Регистрация: 01.10.2011

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

@КонецСвета · 17.12.2011, 00:39

см здесь

Добавлено через 31 минуту
вот вариант без множеств и логических переменных
учти, что приведенный вариант выбора случайных чисел возможен только при количестве элементов до 20

Pascal

uses crt;
const n=20;
var a:array[1..n] of integer;
    m,i,j,x,k:integer;
begin
clrscr;
randomize;
m:=1;
a[1]:=random(19)-9;
for i:=2 to n do
  begin
    repeat
      k:=0;
      x:=random(19)-9;
      for j:=1 to m do
      if a[j]=x then inc(k);
    until k=0;
    a[i]:=x;
    m:=m+1;
  write(a[i]:4);
 end;
readkey
end.

если будет надо генерировать больше элементов, необходимо увеличить диапазон генератора случайных чисел, например

Pascal

1	x:=random(101)-50;

@nastenkaa 0 / 0 / 0 Регистрация: 01.10.2011 Сообщений: 67
		1
	создать массив из различных элементов. 16.12.2011, 23:51. Показов 1727. Ответов 1 Метки нет (Все метки) создать массив из различных элементов. 0

	17.12.2011, 00:39

создать массив из различных элементов.

Решение