Последние вопросы и ответы

Дан массив А из 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.
Нет уточнений