Cho 1 dãy số nguyên gồm n phàn tử,n nhập từ bàn phím
a, Hãy nhập và hiện dãy số trên
b,Hãy hiện ra màn hình dãy số ngược lại dãy số trong câu a
c,Tính tổng của các số trong dãy trên vs các số là bội của 3
d, Hãy hiện ra màn hình các số chẵn tren 1 dòng,số lẻ trên 1 dòng. Các số lẻ trên dòng thứ 2 của dãy số trong câu a

View more random threads:

• Nhờ giúp đỡ ....tks
• Bài 10 trang 36 tin học 11
• Ai có theme win7 nào đẹp ko em xin cái
• Giúp kết nối headphones với máy tính
• Sự cố về virut
• [Pascal] Bài tập về tệp và xử lí tệp
• Chuyển file ảnh sang HTML?
• Hỏi về Autorun Eater... ?
• Về :Cấn tìm Software Scan File (.txt)
• [BT Tin 11 ] Lập CT giải 1 bài toán cổ

Nguồn: http://diendankienthuc.net.

Cho em spam cái: Ko ai giúp mình làm à(Mong các mod thông cảm-Bài của chị gái ruột) Nguồn: http://diendankienthuc.net.

program dayso;
uses crt;
var a:array [1.100] of integer;
i,k,n:byte;
begin
writeln(' nhap n:');
readln(n);
for i:=1 to n do
begin
writeln('Nhap A[',i,']:');
readln(a[i]);
end; { nhap xong day a }
for i:=1 to n do write(a[i],' '); { hien day a tren mot dong }
for i:=n downto 1 do write(a[i],' '); { hien day a nguoc lai }
k:=0; { k la tong cac so la boi cua 3}
for i:=1 to n do if a[i] mod 3 =0 then k:=k+a[i];
writeln(' Tong cac so chia het cho 3 la:',k);
for i:=1 to n do if a[i] mod 2=0 then write(a[i],' '); {hien dong so chan}
writeln; {xuong dong}
for i:=1 to n do if a[i] mod 2=1 then write(a[i],' '); {hien dong so le}
readln
end.
{OK}

coconvuive12

 22:26, 3rd Mar 2011 #175 

ghi rõ a b c d là phần nào ra

Nguồn: http://diendankienthuc.net.