Написать на Паскале программу, которая запрашивает с клавиатуры N произвольных целых чисел и ищет их сумму. Число N вводится с клавиатуры. Разработать для созданной программы не менее трёх тестов и проверить на них правильность...
Написать на Паскале программу, которая запрашивает с клавиатуры N произвольных целых чисел и ищет их сумму. Число N вводится с клавиатуры. Разработать для созданной программы не менее трёх тестов и проверить на них правильность работы алгоритма.
Помогите пожалуйста!
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы