Сформировать целочисленный массив размерностью 16,заполненным случайными числами из...

Question

Сформировать целочисленный массив размерностью 16,заполненным случайными числами из промежутков [-20;20] вывести на экран все числа в ряд(ширина поля вывода -4)
а)найти сумму первого и последнего элементов

Answer 1

// PascalABC.NET 3.3, сборка 1555 от 21.10.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(16,-20,20);
  foreach var n in a do Write(n:4); Writeln;
  Writeln('Сумма первого и последнего элементов: ',
      a.First+a.Last)
end.

Пример
   4   4  12  -2  -7  13 -15 -13   2   1 -20  -4  -3  20  15   7
Сумма первого и последнего элементов: 11