Получение массива, паскаль

[Kries]

Добрый вечер, задача следующая:

С помощью функции RANDOM получить массив размерностью [0..20].
Упорядочить его по возрастанию.

Заранее премного благодарен.

[Stilet]

И в чем проблема?

[Kries]

for i:=1 to 21 do
a:=random*10;

for i:=1 to 1 do
begin
for i:=1 to 2 do
begin
if a<a[i+1]>;
a:=a[i+1];
a[i+1]:=b;
end;
end;
end


идея такая, но, к сожалению, с программированием траблы

[Npwas]

Сделай вот так!!!

TYPE
  mas=array  of integer;
VAR
  a:mas;
  n,i,j:integer;
{Сортировка методом пузырька}
PROCEDURE BubbleSort;
 Var
   Temp:integer;
 BEGIN
  For i:=0 to n-1 do
   For j:=0 to n-i-1 do
    IF A[j]>A[j+1] Then
     Begin
       Temp:=A[j];
       A[j]:=A[j+1];
       A[j+1]:=Temp;
     End;
 END;

BEGIN
 Randomize;
 Write('Vvedite kolichestvo chisel v massive: ');
 Readln(n);
 SetLength(a,n);
 For i:=0 to n do
   a[i]:=random(21);
 Writeln('Starij massiv:');
 For i:=0 to n do
   Writeln(a[i]);
 Writeln;
 BubbleSort;
 Writeln('Otsortirovannij massiv')
 For i:=0 to n do
    Writeln(a[i]);
 Readln;
END.

[whatever]

Сообщение от Npwas

Сделай вот так!!!

Щас научишь...

Во-первых динамический массив тут не нужен, в задании четко сказано:

Сообщение от Kries

получить массив размерностью [0..20]

Во-вторых, использовать глобальные переменные (массив A, размерность n) конечно можно, но не желательно.

В третих я бы выводил в строчку:

const
  n=20;
TYPE
  mas=array[0..n]of integer;

PROCEDURE BubbleSort(var A:mas);
 Var
   Temp:integer;
   i:integer;
 BEGIN
  For i:=0 to n-1 do
   For j:=0 to n-i-1 do
    IF A[j]>A[j+1] Then
     Begin
       Temp:=A[j];
       A[j]:=A[j+1];
       A[j+1]:=Temp;
     End;
 END;

VAR
  a:mas;
  i:integer;


BEGIN
 Randomize;
// Write('Vvedite kolichestvo chisel v massive: ');
// Readln(n);
// SetLength(a,n);
 For i:=0 to n do
   a[i]:=random(21);
 Writeln('Starij massiv:');
 For i:=0 to n do
   Write(a[i],' ');
 Writeln;
 BubbleSort(a);
 Writeln('Otsortirovannij massiv');
 For i:=0 to n do
    Write(a[i],' ');
 Readln;
END.

Хотя, по большему счету, оба варианта приемлемые, чисто для общего развития вариант с динамическим массивом будет лучше, а вот использование глобальных переменных наоборот.

Так что, если хотим динамический, то делаем так:

TYPE
  mas=array of integer;

PROCEDURE BubbleSort(var A:mas);
 Var
   Temp:integer;
   i,j:integer;
 BEGIN
  For i:=0 to high(A) do
   For j:=0 to high(A)-i do
    IF A[j]>A[j+1] Then
     Begin
       Temp:=A[j];
       A[j]:=A[j+1];
       A[j+1]:=Temp;
     End;
 END;

VAR
  a:mas;
  i,j,n:integer;
{Сортировка методом пузырька}


BEGIN
 Randomize;
 Write('Vvedite kolichestvo chisel v massive: ');
 Readln(n);
 SetLength(a,n);
 Writeln('Starij massiv:');
 For i:=0 to high(a) do
 begin
   a[i]:=random(21);
   Write(a[i],' ');
 end;
 Writeln;
 BubbleSort(a);
 Writeln('Otsortirovannij massiv');
 For i:=0 to high(a) do
    Write(a[i],' ');
 Readln;
END.