Question

Написать программу, используя динамическое выделение памяти.
Дан массив А из N целых чисел. Вывести на печать только те числа, для которых выполняется условие Аi ≤ i, где i – номер элемента массива

Answer 1

PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(ReadInteger('n='),0,30); a.Println;
  for var i:=0 to a.Length-1 do
    if a[i]<=i+1 then Print(a[i])
end.

Пример
n= 20
18 19 0 24 24 19 15 1 25 11 15 19 15 12 2 2 7 19 20 12
0 1 12 2 2 7 12

Answer 2

ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ
  Матем ИЗ "...\Отделы\Обмен\",
  Вывод ИЗ "...\Отделы\Обмен\",
  Приём ИЗ "...\Отделы\Обмен\";

ПЕР
  A: ДОСТУП К РЯД ИЗ ЦЕЛ;
  N, сч: ЦЕЛ;

УКАЗ
  N := Приём.Число();
  СОЗДАТЬ(A, N);
  ОТ сч := 0 ДО N - 1 ВЫП
    A[сч] := УЗК(ВШИРЦЕЛ(Матем.случ() * N))
  КОН;

  ОТ сч := 0 ДО N - 1 ВЫП
    ЕСЛИ A[сч] <= сч ТО
      Вывод.ЧЦел("%d ", A[сч], 0, 0, 0)
    КОН
  КОН

КОН Задание.