Дана непустая последовательность натуральных чисел, за которой ...

Moderator

program P1;usescrt;varmas : array[1..100] of integer;i,ms,summ : integer;begin

clrscr;

writeln('Vvod massiva: ');

ms := 1;

repeat read(mas[ms]); inc(ms); until mas[ms-1] = 0;

summ := 0;

for i := 1 to ms-1 do summ := summ + mas[i];

writeln('Resultat: ',summ);

readln; readln;

end.