Дан массив целых чисел {Ai} где i=1,2,3,…,M,
причем M=15.
Программа вычисляет произведение сумм некоторых элементов этого массива.
Работу программы описывает выражение (в программе введены следующие константы: G=1; W=12; T=8; L=15;) …
ПРОГРАММА 15;
ФУНКЦИЯ SUMMA(I1,I2);
НАЧАТЬ ФУНКЦИЮ
S:=0;
НЦ ДЛЯ I:=I1 ДО I2
S:=S + A[I]
КЦ;
SUMMA:=S
КОНЕЦ ФУНКЦИИ;
НАЧАТЬ ПРОГРАММУ
ВЫВОД ('ВВЕДИТЕ ЗНАЧЕНИЯ МАССИВА A:' );
НЦ ДЛЯ J:=1 ДО M
ВВОД (A[J]);
КЦ;
P:=SUMMA (G, W)*SUMMA(T, L);
ВЫВОД ('ПРОИЗВЕДЕНИЕ РАВНО:', P:6)
КОНЕЦ ПРОГРАММЫ.