Var i, n, s: integer; a: array[1..10] of integer; - вопрос №8641627110 от лейла1102 14.09.2022 23:29

Question

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

лейла1102 · Answer

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

for i:=1 to n do
begin
s:=s+a[i];
write (s,' ');
end;