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

Question

Информатика

Аннушка

15 марта, 01:13

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

+4

Ответы (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.