Var i, n, s: integer; a: array[1..10] of integer; begin writeln('введите колличество чисел (не больше 10)'); read(n); s: =0; randomize; begin for i: =1 to n do a[i]: =random(100); for i: =1 to n do s: =s+a[i]; for i: =1 to n do write (s,' '); end; end. я хочу чтобы выходило в итоге 10 последовательных значений числа s, а он пишет 10 раз конечное значение. что не так?
for i:=1 to n do
begin
s:=s+a[i];
write (s,' ');
end;