Question

Дан массив целых чисел размерностью n (n=16), найти сумму первых пяти элементов массива Сделать в Паскале

Answer 1

program mass;

const n = 16;

var A: array [1..n] of integer;

i, sum : integer;

begin

writeln ('Vash massiv: ');

for i:=0 to n do A[i]:= random(10);

for i:=0 to n do write(A[i], ' ');

sum:=0;

for i:=0 to 5 do sum:=sum + a[i];

writeln();

writeln('s = ', sum);

end.

Answer 2

PascalABC.NET 3.4

begin
  var a:=ArrRandom(16,-99,99); a.Println;
  Writeln('Сумма первых 5 значений ',a[:5].Sum)
end.