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.
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
Bình luận
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.
đang hàn sang tàu
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