السلام عليكم ورحمة الله
بالنسبة للتمرين الثاني فهاهو الحل
كود PHP:
Program Pair;
var i,k,z,n:integer;
T:Array[1..100] of integer;
begin
Write('Taper le nombre d éléments de table :');
Read(n);
k:=1;
Writeln('Romplier le vecteur :');
for i:=1 to n do
Read(T[i]);
for i:=1 to n do
begin
if T[i] mod 2 = 0 then
begin
Z:=T[k];
T[k]:=T[i];
T[i]:=Z;
K:=k+1;
end;
end;
for i:= 1 to n do
Write(T[i]:6);
Readln;readln;
end.
بالتوفيق