1. Задан массив D. Определить следующие суммы: D[1] + D[2] + D[3]; D[3] + D[4] + D[5]; D[4] + D[5] + D[6], используя подпрограмму для вычисления суммы трех последовательно расположенных элементов массива.

program zz1;

const n = 6; / / задаем количество элементов в массиве

var i, k, s:integer; / / задаем переменные целого типа

d:array [1 ... n] of integer;

procedure summ (a, b, c:integer; var f:integer); / / записываем подпрограмму

begin

f:=a+b+c;

end;

begin

for i:=1 to n do / / получаем n чисел случайных и записываем их в массив

d[i]:=random (51);

for i:=1 to n do / / выводим полученный массив на экран

write (d[i],' ');

writeln; / / переходим на новую строку для вывода ответа

summ (d[1], d[2], d[3], s); / / вызываем подпрограмму

writeln (' первая сумма = ', s); / / выводим ответ

summ (d[3], d[4], d[5], s);

writeln (' вторая сумма = ', s);

summ (d[4], d[5], d[6], s);

writeln (' третья сумма = ', s);

end.