Вопрос по информатике:
Дан массив элементов А[15]. Найти суммы элементов с 1 до 5, с 6 до 10, с 11 до 15 и вычислить произведение этих трех сумм.
- 11.07.2018 18:53
- Информатика
- remove_red_eye 1661
- thumb_up 42
Ответы и объяснения 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.
- 12.07.2018 20:49
- thumb_up 1
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.