Seam
4 год назад
var i, n, s: integer;a: array[1..10] of integer;beginwriteln('Введите колличество чисел (не больше 10)');read(n);s:=0;randomize;beginfor 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 раз конечное значение. Что не так?
ОТВЕТЫ
Artur
Oct 24, 2020
Последний цикл лишний. Надо было вывод суммы делать во втором цикле вот так:
for i:=1 to n do
begin
s:=s+a[i];
write (s,' ');
end;
for i:=1 to n do
begin
s:=s+a[i];
write (s,' ');
end;
618
Смежные вопросы:
