[King Soft]

ارجو ان تبدا موضوعك بالسلام اخي !!!

كود PHP:

Program Mx;
uses crt;
var
T:Array[1..7,1..5]of integer;
i,j,n:integer;
begin
 for i:=1 to 7 do
    for j:=1 to 5 do
begin
        gotoxy(j*4,i*4);
        Read(T[i,j]);
end;
 Writeln('nombre des elements impaires :');
 for i:= 1 to 7 do
  begin
     n:=0;
     for j:=1 to 5 do
         if T[i,j] div 2 =1 then n:=n+1;
     Writeln('Line ',i,' = ',n);
  end;
 Writeln('nombre des elements paires :');
 for i:= 1 to 7 do
  begin
     n:=0;
     for j:=1 to 5 do
         if T[j,i] div 2 =0 then n:=n+1;
     Writeln('colonne  ',i,' = ',n);
  end;
  readln;readln;
end. 


بالتوفيق