заполнить массив A (40) случайным образом целыми числами с диапазона [100, 999]

[prosto_man]

Составить программу, по которой:
1) заполнить массив A (40) случайным образом целыми числами с диапазона [100, 999];
2) вывести элементы массива на экран в строку;
3) упорядочить диапазон элементов массива при следующих условиях:
диапазон 8-38
метод упорядочения: выбором
свойства элементов массива: кратные 5
4) вывести элементы массива на экран в строку.

[ZX Spectrum-128]

Простая же задача. В 1-й части что конкретно не получилось?

[Arigato]

Объявляем массив:

const
  n = 40;

type
  TElem = 100..999;
  TVector = array[1..n] of TElem;

var
  A: TVector;

Заполняем:

procedure VectorInit(var M: TVector);
var
  i: Integer;
begin
  for i := 1 to n do
    M[i] := 100 + Random(900);
end; {proc VectorInit}

Выводим:

procedure VectorWrite(const M: TVector);
var
  i: Integer;
begin
  for i := 1 to n do
    Write(M[i], ' ');
end; {proc VectorWrite}

Третье задание не понял. Упорядочить только элементы с 8 по 38, которые кратны 5, а остальные не трогать?

[prosto_man]

да, только с 8 до 38

[Arigato]

Ну так реализуй обычный алгоритм сортировки, только пределы цикла задай от 8 до 38.

[prosto_man]

не получается

[ZX Spectrum-128]

Код сортировки найти не сложно. Что не получается? Набрать слово"сортировка" в поисковике?

[Arigato]

А без сортировки заполнить и вывести получилось? Работает?

[prosto_man]

да, выходит

[Arigato]

Код в студию.