Массив

[VIUS]

Сообщение от newerow1989

var p:array of byte;//динамический массив
    n,i:byte;
begin
   Read(n);//здесь указывается размерность массива (сколько чисел надо ввести)
   SetLength(p,n);//изменяем размерность массива, т.е. он будет p:array[0..n-1] of byte;
   For i:=0 to n-1 do
      p[i]:=Random(255);
   Readln;//нажимаем Enter
   For i:=0 to n-1 do
      Writeln(p[i]);//вывод массива
   Readln;
end.

Всё, понял. Ещё раз спасибо Вам за помощь! Выручили

[newerow1989]

Пожалуйста!

[Stilet]

Я конечно прошу прощения что влезаю в вашу горячую тему, но как вообще решения, тут предоставленные отражают суть задачи визуально?
Не, я понимаю что ТЗ выполнено, но какой смысл мне лично от этого?.
Допустим я ТП (тупой препод), я запускаю эту программу, и что вижу? Пустую зависшую консоль, которая мне ничего не сообщает.
Может всетки стоит уточнить задание?
Может всетки речь идет о вводе-выводе, потом приглашение нажать Энтер, потом ввод-вывод второго и опять приглашение, не?

[newerow1989]

и что вижу? Пустую зависшую консоль, которая мне ничего не сообщает.

Я создавал программу на Delphi 6. У меня все работает.