ساعدوني في pascal

[didou25360]

اريد حل لهذا التمرين
écrire un programme que permet de calculer pour chaque ligne le nombre des elements impaires et pour chaque colonne le nombre des elements paires d'une matrice de 7 lignes et 5 colonne d'elements entiers
بارك الله فيكم

[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. 


بالتوفيق

[didou25360]

شكرا لك وعلي ملاحظتك القيمة
وبارك الله فيك

[didou25360]

شكرا لك وعلي ملاحظتك القيمة
وبارك الله فيك