Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  online
Language: PASCAL
Code:
type sir=array [1..20] of integer;
var x :sir;
poz,i,n:integer;
begin
read(n);
for i:=1 to n do
read(x[i]);
for i:=n downto 1 do
if (x[i] mod 2=0) then poz:=i;
poz:=poz+1;
for i:=n downto poz do
x[i+1]:=x[i];
x[poz]:=100;
n:=n+1;
for i:=1 to n do
write(x[i]);
readln;readln;
end.
Comments: