Question

Дан массив А из 20 элементов. найти сумму первых 10 элементов массива и следующих 10 элементов массива. результат вывести на печать.

Answer 1

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.