Bài tập pascal kiểu mảng

[alice27]

ai giúp em al2m bài pấcl kiểu mảng với

1/ Nhập dãy số nguyên dương N,sau đó xuất ra số chia hết cho 3
2/ Nhập dãy số nguyên dương N, sau đó xuất ra trung bình cộng chia hết cho 3
3/ Nhập dãy số nguyên dương N,sau đó xuất ra số lẻ

[cuongtv_it]

ngu the bai de ma khong lam duoc

[=========> Bổ sung bài viết <=========]

dot troi day, ngu troi diet

[littlelee]

Nè, sao lại chửi bạn ý thế, ko giúp thì thôi, ăn nói sao thô tục thế.
Mấy bài này dễ, bạn chịu khó làm nha, còn cái ý thứ hai mình ko hiểu ý bạn lắm. Nói rõ đi

[dancuipascal]

Sao chửi người ta thế bạn...!! cóa người giỏi cũng có ngừời chưa giỏi có thể bạn hơn người này nhưng chắc gì bạn đã giỏi hơn người khác..!!
còn về bài đóa nàk
var a:array[1..100]of integer;
i,n,d,t:integer;tb:real;
begin d:=0;t:=0;
Write('s phan tu:');readln(n);
for i:=1 to n do begin
write('nhap phan tu thu ',i,':');readln(a[i]);end;
writeln('cac so chia het cho 3 la:');
for i:=1 to n do
if a[i] mod 3=0 then begin
d:=d+1;t:=t+a[i];write(a[i],' '); end;
tb:=t/d; writeln;
writeln('tong cac so chia het cho 3 la:',tb);
writeln('cac so le la:');
for i:=1 to n do
if a[i] mod 2 = 1 then write(a[i],' ');
readln;
end.