Дан ряд из 10 произвольных чисел: a[1], a[2], ... , a[10] (использовать функцию...

Question

Дан ряд из 10 произвольных чисел: a[1], a[2], ... , a[10] (использовать функцию random()). Подсчитать и напечатать суммы троек стоящих рядом чисел: a[1]+a[2]+a[3], a[2]+a[3]+a[4], a[3]+a[4]+a[5], …… , a[8]+a[9]+a[10]

Answer 1

Ответ:

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

var i,s: integer;

begin

randomize();

for i:=1 to 10 do

 begin

 a[i]:=random(10);

 write(a[i],' ');

 end;

writeln();

for i:=1 to 8 do

 begin

 s:=a[i]+a[i+1]+a[i+2];

 writeln('a[',i,']+a[',i+1,']+a[',i+2,'] = ',s);

 end;

end.