Дан массив А из 20 элементов. найти сумму первых 10 элементов массива и следующих 10 элементов массива. результат вывести на печать.
Дан массив А из 20 элементов. найти сумму первых 10 элементов массива и следующих 10 элементов массива. результат вывести на печать.
Гость
Ответ(ы) на вопрос:
Гостьvar a : array[1..20] of integer;
i, s1, s2 : integer;
begin
...считали массив
s1 := 0;
s2 := 0;
for i := 1 to 10 do
s1 := s1 + a[i];
for i:= 11 to 20 do
s2 := s2 + a[i];
writeln('сумма 1-10 = ', s1, '; сумма 11-20 = ', s2);
end.
Не нашли ответ?
Похожие вопросы