Как написать на Паскале программу, которая вводит с клавиатуры N произвольных целых чисел и ищет их сумму? (Число N тоже вводится с клавиатуры.)
Как разработать для созданной программы не менее трёх тестов и проверить на них правильность работы алгоритма?

Предыдущий
вопрос Следующий
вопрос

Программа на Паскале:

program SumOfNumbers;
var
N, i, num, sum: integer;
begin
sum := 0;
write('Enter the value of N: ');
readln(N);
for i := 1 to N do
begin
write('Enter a number: ');
readln(num);
sum := sum + num;
end;
writeln('The sum of the numbers is: ', sum);
end.

Тест 1:
Input:

N = 5
Numbers: 1, 2, 3, 4, 5

Output:

The sum of the numbers is: 15

Тест 2:
Input:

N = 3
Numbers: -2, 0, 2

Output:

The sum of the numbers is: 0

Тест 3:
Input:

N = 4
Numbers: -10, -5, 0, 10

Output:

The sum of the numbers is: -5

Для проверки правильности работы алгоритма можно запустить программу на каждом из указанных тестов и сравнить полученные результаты с ожидаемыми.