Одномерный массив (Pascal)

[Groslerg]

Пусть А одномерный массив из n вещественных чисел. Составить массив В, получающийся выписыванием элементов массива А по возрастанию.

[Mad_Cat]

сортировка_пузырьком

[Groslerg]

program m;
var a:array[1..5] of real;
i,j:integer;
x:real;
begin
writeln('Введите 5 элементов массива');
for i:=1 to 5 do readln(a[i]);
for i:=1 do 4 do
begin
for j:=i+1 to 5 do
begin
if a[i]>a[j] then
begin
x:=a[i];
a[i]:=a[j];
a[j]:=x;
end;
end;
end;
writeln('массив отсортирован');
for i:=1 to 5 do
writeln (a[i]);
end.
Проверьте правильность программы)) препод говорит, что не правильно, не хватает массива Б!!

[BDA]

Ну массива Б и правда у Вас нет
Например:

program m;

var
  a, b: array[1..5] of real;
  i, j: integer;
  x: real;

begin
  writeln('Введите 5 элементов массива');
  for i := 1 to 5 do readln(a[i]);
  b := a;
  for i := 1 to 4 do
  begin
    for j := i + 1 to 5 do
    begin
      if b[i] > b[j] then
      begin
        x := b[i];
        b[i] := b[j];
        b[j] := x; 
      end;
    end;
  end;
  writeln('массив отсортирован');
  for i := 1 to 5 do
    writeln(b[i]);
end.

Используйте кнопочку # для оформления кода.

[Groslerg]

Спасибо!!!!!!!!