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