Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

Дано несколько чисел. Вычислите их сумму. Сначала вводите количество чисел N, затем вводится ровно N целых чисел.

Ответ оставил Гость

uses crt;
var a,n,s:integer;
begin
clrscr;
write(Введите количество чисел: ); read(n);
writeln(Введите числа:);
for n:=1 to n do
begin
read(a);
s:=s+a;
end;
write(Сумма введенных чисел: ,s);
end.