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 раз конечное значение. Что не так?

Question

Минодора

5 октября, 04:19

+4

Ответы (1)

Знаете ответ на вопрос?

Артемия · Answer 1

Последний цикл лишний. Надо было вывод суммы делать во втором цикле вот так:

for i:=1 to n do

begin

s:=s+a[i];

write (s,' ') ;

end;