Bad Girlds - Chapter 1

program VD;
uses crt;
Var A:array[1..100] of integer;
I,n,tong,dem:integer;
tb:real;
Begin
clrscr;
write('Nhap nhiet do cua may ngay');
readln(n);
for i:=1 to n do
begin
write('Moi nhap phan tu thu',I,':');
readln(A[I]);
End;
{Xuat mang}
writeln('Nhiet do cua tuan vua nhap');
For I:=1 to n do
write(A[I]:5);
readln;
{dem so ngay cao hon tb}
Dem:=0;
Tong:=0;
For i:=1 to n do
Tong:=Tong A[I];
Tb:=Tong/n;
writeln('Nhiet do trung binh trong ',n,' ngay',tb:5:2);
for i:=1 to n do
if A[I]>tb then
begin
Dem:=Dem 1;
write(A[I]:5);
end;
writeln(' la cac nhiet do cao hon nhiet do trung binh');
write('Co ',Dem,' ngay co nhiet do cao hon nhiet do tb tuan');
readln;
{tinh tong cac so chia het cho 3}
S:=0;
write('cac so chia het cho 3 la: ');
for i:= 1 to n do
if A[I] mod 3=0 then
begin
S:=s A[1]
write(A[I]:5);
end.
writeln;
writeln('Tong cac phan tu chia het cho 3 la ',s);
readln;
end.

truyện khác à
đang hàn sang tàu

Lần thứ 2 thấy truyện 5*

Bộ này tàu hũ lụ vậy

Koushaku Reijou no Tashinami
Có bạn nào còn hóng bộ này không?
Xin lỗi dù không liên quan gì nhưng mình thấy có trang mún dịch tiếp bộ này từ chap 20 trở lên nên là giới thiệu cho các bạn
Tên nhóm: YP - Young Penguin Team (trên facebook)
(trên facebook) mấy bạn coppy tên nhóm rồi paste vô Thanh tìm kiếm , nhấp vô '' Trang '' ở ngay phần đầu. Sau đó hiển thị 1 trang có ảnh đại diện là chim cách cụt cùng với tên trang . vô đấy là có rùi... :v

còn đây là cách lấy link:
Bạn đăng nhập rồi nhấp vô phần trang chủ, ta thấy link phía trên có: http.....com
Sau đó cop phần dưới
/YP-Young-Penguin-Team-401703220441984/
rồi dán ngay sau cái chỗ .com đấy
=> có link rồi(vì nett không cho đăng link lên được nên dùng cách này có hơi rắc rối)
phiền các bạn đọc comment thì thành thật xin lỗi

chap 3 là truyện gì vậy???

nhìn mấy con kia óc chso vcl

Chuyện hài ghê! Xem các con giời xử nhau!

truyện có vẻ vui đấy các con zời, đọc và theo dõi thôi.