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

Question

Информатика

Ярослав

16 октября, 19:46

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

+5

Ответы (1)

Знаете ответ на вопрос?

Ардалион · 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.