Có bài pascal nhờ các pro giúp nè

**Maihoaca** · 11-26-2009, 07:20 PM

nhập 1 mảng hai chiều gồm 10 hàng ,10cột và in ra màn hình các số chia hết cho 3 :D:D:D
thanks các anh chị trước nha:D:D:D:D:):)

.

**thegioihoc** · 11-26-2009, 07:46 PM

uses crt;
var

a:array[1..20,1..20] of integer;
b:array[1..50] of integer;
m,n,i,j,t:integer;

BEGIN

clrscr;
write('Nhap so hang:');readln(m);
write('Nhap so cot:');readln(n);
for i:=1 to m do

for j:=1 to n do

begin
write('Nhap a[',i,',',j,']=');
readln(a[i,j])
end;

t:=0;
for i:=1 to m do

for j:=1 to n do
if a[i,j] mod 3=0 then

begin
t:=t+1;
b[t]:=a[i,j];
end;

write('Cac so chia het cho 3 la: ');
for i:=1 to t do write(b[i]:3);
readln;

END.

Cái này h không phải nghề của mình nên chỉ pít có vậy :D .

Ðề tài: Có bài pascal nhờ các pro giúp nè