Question

Напишите фрагмент программы, позволяющий ввести массив с клавиатуры

помогите срочно пожалуйста

Answer 1

var

   a: array[1..1000] of Integer;

   n, i: Integer;

begin

   Write('Введите количество чисел: ');

   Read(n);

   

   {ввод массива}

   for i := 1 to n do

       Read(a[i]);

   

   {вывод массива}

   for i := 1 to n do

       Write(a[i], ' ')

end.