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 раз конечное значение. Что не так?
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 раз конечное значение. Что не так?
More Questions From This User See All
Answers & Comments
for i:=1 to n do
begin
s:=s+a[i];
write (s,' ');
end;