Сделать массив a из десяти целых чисел, принадлежащих промежутку [-50;50). Вывести

// Пример программки на языке Паскаль.

var
   i : integer;                                  // объявляем переменные целочисленного типа.
   arr : array [1..10] of integer;       // объявляем массив.
Begin
   for i:= 1 to 10 do                        // начало цикла.
     begin
        arr[i] := random(-50,50);      // заполняем элемент массива числом от -50 до 50.
        write( ,arr[i], );                 // вывод текущего элемента массива на экран.
     end;
End.