Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.