Задание
i,k,j:byte;
d:integer;
begin
for i:=1 to 5 do read\(a⟨1⟩\);
for j:=1 to 3 do
begin
d:=a
for i:= 5 downto 2 do
a
a
end;
writeln;
for i:=1 to 5 do write\(a⟨1⟩,'\*'\);
end.
Что будет выведено на экран при вводе предполагаемых значений?
{1 2 3 4 5 }
program massiv;
var a,b:array
\[1\.\.5\]
of integer;i,k,j:byte;
d:integer;
begin
for i:=1 to 5 do read\(a⟨1⟩\);
for j:=1 to 3 do
begin
d:=a
\[5\]
;for i:= 5 downto 2 do
a
\[i\]
:=a\[i\-1\]
;a
\[1\]
:=d;end;
writeln;
for i:=1 to 5 do write\(a⟨1⟩,'\*'\);
end.