Сайт Льва Волкова
  
Зло, которое мы причиняем, навлекает на нас меньше ненависти и преследований, чем наши достоинства. Ф.Ларошфуко
 
      На главную  
 Личное
  Статьи
  Задачи 
 Ссылки
 АТ-531
www.levvol.ru    
 

Из упорядоченного массива — случайный

Первое число упорядоченного массива меняем со случайным числом следующим за ним, т.е. от 2 до n-го, второе число меняем с числом из диапазона 3, n и т.д.

Входные данные: 1 2 3 4 5 6 7 8 9 10

Выходные данные: 2 4 1 10 7 3 9 6 8 5



Program RandomArray;
Uses CRT;
Const n=10;
Type a_type=array [1..n] of integer;
Var a:a_type;
m,x,i:integer;
Begin
ClrScr;
randomize;
{исходный массив}
for i:=1 to n do a[i]:=i;
for i:=1 to n do write(a[i]:3);
writeln;
for i:=1 to n-1 do begin
{случайное число из диапазона i+1,n}
m:=random(n-i-1)+i+1;
{обмен i и m числа массива }
x:=a[i]; a[i]:=a[m]; a[m]:=x
end;
for i:=1 to n do write(a[i]:3);
readln
End.

  


 

Скачать эту программу

Назад