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

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

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.

Похожие ответы
  1. 2. Сформировать двумерный динамический массив. Добавить в него строку с заданным номером;

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

  1. Помогите переписать программу(чтобы использовался динамический массив)

  1. Даны действительные числа а1,..аn Получим:min(a1*a16,a2*a17,..,a15*an) заранее большое спасибо=))))

  1. Нужно считать файл в двумерный динамический массив, вычислив количество строк в файле...

  1. Разработать программу вычисления значения выражения следующего вида: X1*Xn+X2*Xn-1+...+Xn*X1 При этом значения X1, X2, ..., Xn вводятся с клавиатуры и динамически размещаются в оператив-ной памяти либо в форме массива, либо в форме стека (или двух стеков, один из которых реверсирован по отношению к другому

  1. Все как обычно просто. Задаем двумерный массив(любой) и считаем сумму положительных элементов по столбцам. Выводим результат в виде одномерного массива. И все это с динамическим выделением памяти. Входной файл взял для удобства ввода чисел, выглядит так: 3 - число столбцов 3 - число строк 1 1 1 1 1 1 1 1 1 Вот что получилось


Нашли ошибку?
Развитие проекта
Яндекс.Метрика