ساعدوني في 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 :sdf:
بارك الله فيكم

[King Soft]

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


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]

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