الموضوع: exercices au pascal

{ ecrire un programme qui un tableau d'entier,puis calcule
la somme des entiers paires et l'afficher }

program ex13;
uses wincrt;
var
n,i,s:integer;
t:array[1..100] of integer;
begin
write('donner la longeur du tableau :');readln(n);

for i:=1 to n do
begin
write('t[',i,']:');
readln(t[i]);
end;
s:=0;
for i:=1 to n do
begin
if(t[i] mod 2=0) then
s:=s+t[i];
end;
writeln('');
writeln('la somme des éléments pairs est : ',s);
end.


---------------------------------

{ ecrire un programme qui lit un tableau t1 de 4 entier,puis t2 ne contenant que
1 ou 0 . puis repmlir t3 de cette maniere :
de chaque case de t1 et t2 : t2 = 0 alos t3 = 0 si non t3 = t1
exp :
t1 : 1 6 9 1 25
t2 : 0 1 0 0 1
--> t3 : 6 25 0 0 0
}


program ex14;
uses wincrt;
var
tab1:array[1..4]of integer;
tab2:array[1..4]of integer;
tab3:array[1..4]of integer;
i,z:integer;

begin
writeln('TAB 1') ;
for i:= 1 to 4 do
begin
write('tab1[',i,'] = ');
readln(tab1[i]);
end;

writeln('TAB 2');

for i:=1 to 4 do
begin
repeat
write('tab2[',i,'] = ');
readln(tab2[i]);
until (tab2[i] in [0..1]);
end;


for i:=1 to 4 do
tab3[i]:=0;

z:=1;

for i:=1 to 4 do
if (tab2[i]=1) then begin
tab3[z]:=tab1[i];
z:=z+1;
end;
for i:=1 to 4 do
write(tab1[i],' ');
writeln('');
for i:=1 to 4 do
write(tab2[i],' ');

writeln('');

for i:=1 to 4 do
write(tab3[i],' ');


end.

{ ecrire un programme qui remplie un tableau de chaine de carctere
puis le ranger dans l'ordre alphabetique }

program ex15;
uses wincrt;
var
t:array[1..100] of string;
i,j,n:integer;
x:string;
begin
writeln('remplissage du tableau par des chaines des caratere : ');
writeln('');
write('entre le nombre de case du tableau : ');
repeat
readln(n);
until(n in [1..20]);
writeln('');
for i:=1 to n do
begin
write('tab[',i,'] : ');
readln(t[i]);
end;

for i:=1 to n do
for j:=i+1 to n do
if (ord(t[i][1]) > ord(t[j][1])) then begin
x:=t[j];
t[j]:=t[i];
t[i]:=x;
end;


writeln('');
writeln('voici le tableau rangé :');
writeln('');

for i:=1 to n do
writeln('tab[',i,'] = ',t[i]);
end

.

{ ecrire un programme qui lit un tableau de 10 caractere
puis les fusionner dans un seul mot et l'afficher }


program ex17;
uses wincrt;
var
t:array[1..10] of char;
ch:string;
i:integer;

begin
writeln('remplissage du tableau : ');

for i:=1 to 10 do
begin
write('t[',i,'] = ');readln(t[i]);
end;

ch:=' '; { on doit initialiser ch à10 carctere vide, allocation de memoire }

for i:=1 to 10 do
ch[i]:=t[i];


writeln(ch);
end.

شكرا

pas de quoi ma chérie

أريد حل عاجل لهذه المسالة و جزاكم الله خيرا
écrire le programme qui lit n entiers et calcule la somme des nembres paires