Pascal. Массивы. Задача 5

Сформировать и вывести на экран последовательность из n элементов, заданных датчиком случайных чисел на интервале [-23, 34].

Решение:

Program posled;

Var a: array[1..100] of integer;

      i, n: integer;

Begin

  Write (‘Сколько элементов? ’);  Readln (n);

   For i=1 to n do

       begin      

            a[i]:= Random(58)-23;

             writeln (a[i],’ ‘);

       end;

End.