Question

Задайте массив из 5 случайных элементов. Выведите на экран сумму его элементов и сами элементы. паскаль срочно

Answer 1

var a:array [1..5] of integer;
i,s:integer;
begin
for i:= 1 to 5 do a[i]:= Random(51);
writeln(a);
for i:=1 to 5 do s:=s+a[i];
writeln(s)
end.

Answer 2

PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(5,-99,99); a.Println;
  Writeln('Сумма элементов равна ',a.Sum)
end.

Пример
21 -79 -52 57 -64
Сумма элементов равна -117