Турбо паскаль, динамические массивы

01.01.2001

Турбо паскаль, динамические массивы
Пытаюсь создать динамический массив.
Вот как все выглядит

Когда открываю саму программу, после ввода массива ошибка Runtime

Где я допускаю ошибку?

  • Значение i после цикла - N+1. А ты хочешь вывести n+1-й элемент в массиве с n членов.
  • во-первых в турбопаскале нет динамических массивов
    во-вторых во фрипаскале у динамических массивов индексация с нуля
  • Type pMyArray=^TMyArray;
    TMyArray=array [ 0..1023 ] of integer;
    var N:integer;
    mass:pMyArray;

    begin
    Write('Count=');
    Readln(N);
    GetMem(mass,N*sizeof(integer));
    for i:=0 to N-1 do begin
    Readln(mass^ [ i ]);
    end;
    FreeMem(mass,N*sizeof(integer));
    readln;
    end.

Вас заинтересует