Спрограммированием ( pascal ). дан массив случайных целых чисел d из промежутка [0; 10], состоящий из 10 элементов. составить программу вычисления суммы трех элементов. в качестве подпрограммы оформить вычисление суммы трех последовательно расположенных элементов массива с номерами от k до m: d[1], d[2], d[3], d[3], d[4], d[5], d[4], d[5],d[6].
n = 10;
var
D: array[1..n] of integer;
function Sum3(k: integer): integer;
begin
Sum3 := D[k] + D[k + 1] + D[k + 2]
end;
var
i: integer;
begin
Randomize;
Writeln('Элементы массива');
for i := 1 to n do
begin D[i] := Random(11); Write(D[i]:3) end;
Writeln;
Writeln('Сумма D[1]..D[3]: ', Sum3(1));
Writeln('Сумма D[3]..D[5]: ', Sum3(3));
Writeln('Сумма D[4]..D[6]: ', Sum3(4))
end.
Тестовое решение:
Элементы массива
2 1 5 9 10 2 9 7 2 1
Сумма D[1]..D[3]: 8
Сумма D[3]..D[5]: 24
Сумма D[4]..D[6]: 21