Series30. Даны целые числа $$K$$, $$N$$, а также $$K$$ наборов целых чисел по $$N$$ элементов в каждом наборе. Для каждого набора вывести сумму его элементов.
Решение:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 |
program Series29; var K,N,Ni,Ki,A,S:Integer; begin Write('N: '); Readln(N); Write('K: '); Readln(K); for Ki:=1 to K do begin S:=0; for Ni:=1 to N do begin write('Введите ',Ni,' число из ',Ki ,' набора :'); Readln(A); S:=S+A; end; writeln('Сумма элементов в ',Ki,' наборе равна: ',S); end; readln; end. |
Другие задачи из раздела Series можно посмотреть здесь.
Комментарии:
Комментарии 1