Задачи Альметьевского Филиала КГТУ, Решение задач Опции

[-dron4ik-]

В массиве из 40-а элементов упорядочить
1-ые 20 элементов по возрастанию
2-ые 20 элементов по убыванию.


Массив одномерный


Надо использовать random(n)

[volvo]

Это задачу, если ты не понял, тебе уже подсказали, как решать в теме "Массивы", но если все ТАК плохо - то:

type
  arrtype = array[1 .. 40] of integer;

Procedure Insert(Var ar: arrType; n: Integer; sort_by: boolean);
Var i, j, T: Integer;
Begin
  For i := 1 To n Do Begin
    T := ar[i];
    j := Pred(i);
    While (j > 0) and ((T < ar[j]) = sort_by) Do Begin
      ar[Succ(j)] := ar[j]; Dec(j);
    End;
    ar[Succ(j)] := T;
  End;
End;

var
  a: arrtype;
  i: integer;

begin
  randomize;
  for i := 1 to 40 do a[i] := random(100);

  for i := 1 to 40 do begin
    write(a[i]:4);
  end;

  writeln;

  insert(a, 20, true);
  insert(arrtype((@a[21])^), 20, false);

  for i := 1 to 40 do begin
    write(a[i]:4);
  end;

end.

Сообщение отредактировано: volvo - 1.01.2008 22:54