Помогите с программированием пожалуйста ( 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].
Дан массив случайных целых чисел D из промежутка [0;10], состоящий из 10 элементов. Составить программу вычисления суммы трех элементов. В качестве подпрограммы оформить вычисление суммы трех последовательно расположенных элементов массива с номерами от k до m: D[1], D[2], D[3], D[3], D[4], D[5], D[4], D[5],D[6].
More Questions From This User See All
Answers & Comments
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