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

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

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.