Дано несколько чисел. Напишите программу, вычисляющую их сумму. Сначала вводится количество чисел N, затем вводится ровно N целых чисел. Используйте цикл for.

Question

Информатика

Улус

6 июня, 21:52

Дано несколько чисел. Напишите программу, вычисляющую их сумму. Сначала вводится количество чисел N, затем вводится ровно N целых чисел. Используйте цикл for.

+5

Ответы (1)

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

Сеиджиро · Answer 1

Var

mas: array[1 ... 99999] of integer;

n, i, sum: integer;

begin

write ('Сколько чисел? ') ;

readln (n) ;

writeln ('Введите числа:') ;

for i : = 1 to n do

begin

readln (mas[i]) ;

sum : = sum + mas[i];

end;

writeln ('Сумма = ', sum) ;

end.