Дан массив целых чисел от 1 до n, пусть n=15. Вычислить сумму элементов с 1 по 12, и с 8 по 15, а также найти произведения этих сумм.

program zz1;

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

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

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

begin

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

m[i]:=random (101);

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

write (m[i],' ');

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

for i:=1 to 12 do

k1:=k1+m[i];

writeln (' сумма элементов с 1 по 12 = ', k1); / /выводим ответ

for i:=8 to n do

k2:=k2+m[i];

writeln (' сумма элементов с 8 по 15 = ', k2); / /выводим ответ

writeln (' произведения этих сумм = ', k2*k1); / /выводим ответ

end.