Дано n чисел.Написать программку,которая подсчитывает их сумму.(PascalABC)

Дано n чисел.Написать программу,которая подсчитывает их сумму.(PascalABC)

Задать свой вопрос
1 ответ
Wde не работает, так что не проверял..

var n,x,s,i:integer;
begin
   readln(n); // считываем n
   for i:= 1 to n do begin
      readln(x); // читаем одно из n чисел
      s:=s+x; // добавляем к сумме
   end;
   writeln(s);
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт