Динамический массив - Pascal (80214)

Формулировка задачи:

Составит программу, в которой вводится размер массива (одномерный). Выделить память, отсортировать элементы массива по убыванию. Освободить память. Сделайте пожалуйста через динамический массив, заранее спасибо

Код к задаче: «Динамический массив - Pascal (80214)»

textual
var
  a: array of Integer;
  n, i: Integer;
begin
  Randomize;
  Write('N: '); Read(n);
  SetLength(a,n);
  for i:=0 to n-1 do a[i]:=Random(100);
  Write('A ='); for i:=0 to n-1 do Write(' ',a[i]); WriteLn;
  { отсортировать любимым способом }
  Write('A''='); for i:=0 to n-1 do Write(' ',a[i]); WriteLn;
  SetLength(a,0); { не обязательно }
end.

11   голосов, оценка 3.909 из 5


СОХРАНИТЬ ССЫЛКУ