var x,y,array[8];
begin
for x:=0 step 1 until 7
do
begin
array[x]:=x;
end;
for x:=0 step 1 until 3
do
begin
write(array[x]);
end;
array[0]+=3;
array[1]-=2;
array[2]*=4;
array[3]/=3;
array[4]++;
array[5]--;
++array[6];
--array[7];
for x:=0 step 1 until 3
do
begin
write(array[x]);
end;
y:=0;
for x:=0 step 1 until 3
do
begin
y+=array[x];
end;
write(y);
end.
评论6
最新资源