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

Сделать в Паскале

Program k;

const

n = 16;

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

i, s : integer;

begin

writeln ('Массив: ') ;

for i:=0 to n do

a[i]: = random (15) ;

for i:=0 to n do

write (a[i], ' ') ;

for i:=0 to 5 do

s:=s + a[i];

writeln () ;

writeln ('Сумма = ', s) ;

end.

const n = 16;

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

i, s : integer;

begin

writeln ('Массив: ') ;

for i:=1 to n do

begin

a[i]: = random (15) ;

write (a[i], ' ') ;

end;

writeln;

s:=0;

for i:=1 to 5 do s:=s + a[i];

writeln ('Сумма = ', s) ;

end.

Пример:

Массив:

4 1 6 1 4 9 9 4 3 6 14 0 14 4 13 11

Сумма = 16