Var i, n, s: integer; a: array[1..10] of integer; begin writeln('Введите колличество чисел (не больше 10)'); read(n); s:=0; rand
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 раз конечное значение. Что не так?