Question

Написать на паскале программу, которая запрашивает с клавиатуры n произвольных целых чисел и ищет их сумму. число n вводится с клавиатуры. разработать для созданной программы не менее трёх тестов и проверить на них правильность работы алгоритма. !

Answer 1

Var n,i,s,c:integer;
begin
readln(n);
for i:=1 to n do   //сколько произвольных чисел будет.
begin
readln(c);    //вводим произвольные числа
s:=s+c;   //суммируем
end;
writeln(s);  //Вывод суммы
end.