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

ПОМОГИТЕ записать программу нахождения суммы 10 натуральных чисел введенных с клавиатуры с помощью цикла с заданным количеством повторением и заданным условием окончания работы (на языке Паскаль)

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

Const
    n = 10;

var
    i, a, s: integer;

begin
    for i := 1 to n do
    begin
        read(a);
        s := s + a;
    end;
    
    writeln(s);    
end.