Question

Дан массив элементов а[15]. найти суммы элементов с 1 до 5, с 6 до 10, с 11 до 15 и вычислить произведение этих трех сумм.

Answer 1

Program al;
const n=15;
var a:array[1..n ] of integer;
s1,s2,s3,p,i:integer;
begin
writeln('vvedite massiv=');
for i:= 1 to n do
readln(a[i]);
s1:=0;
s2:=0;
s3:=0;
p:=1;
for i := 1 to 5 do
s1:=s1+a[i];
for i:= 6 to 10 do
s2:=s2+a[i];
for i:= 11 to 15 do
begin
s3:= s3+a[i];
  p:=s1*s2*s3;
  end; 
 writeln('s1=', s1 ,' s2=', s2 ,' s3=', s3 ,' p=',p);
  readln; 
 end.