Создать массив 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.