program massiv;
const n=15;
var x:array[1..n]of integer;
m,i:integer;
begin
read(m); {m=4}
read(x[1]); {x[1]=2}
for i:=2 to n do
x[i]:=x[i-1]+m;
for i:=1 to n do
writeln('x[',i,']=',x[i]);
end.
Помогите как вот это всё пихнуть в 1 цикл!?
не так
потому что здесь будет выводиться начиная со 2-го эл-а!
for i:=2 to n do
begin
x[i]:=x[i-1]+m;
writeln('x[',i,']=',x[i]);
end;
и не так
writeln('x[1]=',x[1]);
for i:=2 to n do
begin
x[i]:=x[i-1]+m;
writeln('x[',i,']=',x[i]);
end;
Училка говорит что есть другие способы!
мб кто знает?
Сообщение отредактировано: BanneD -