Chào mừng các bạn đến với forum Lớp 9/2 trường Thái Nguyên Diễn đàn dù đã ngưng hoạt động nhưng sẽ là một kỉ niệm đẹp để các thành viên của lớp nhớ về.
 
IndexPortalCalendarGalleryTrợ giúpTìm kiếmThành viênNhómĐăng kýĐăng Nhập


Share | 
 

 Tin Kiểm Tra 1 tiết

Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down 
Tác giảThông điệp
Admin_inchou
Admin
Admin


Tổng số bài gửi : 347
Vote : 10
Join date : 12/01/2012
Age : 17

Tài sản
Tài sản:

Bài gửiTiêu đề: Tin Kiểm Tra 1 tiết   Fri Apr 26, 2013 2:20 pm

Ai chưa làm bài tin một tiết gần đây nhất thì chép tạm cái này. Không đảm bảo chắc chắn là nó đúng hay không, nên có sai cũng đừng ném đá cuteonion43
Code:
program Bai_tap;
uses crt;
var    i,n,dem:integer;
   a:array[1..56] of real;
   d:real;
begin
   Writeln(‘Nhap so n:’);
   Readln(n);
   For i:=1 to n do
      begin   
         Writeln(‘Nhap so thu’,i,’:’);
         Readln(a[i]);
      end;
   d:=0;
   dem:=0;
   For i:=1 to n do
      begin
         If a[i] > 0 then dem:= dem + 1;
         d:=d + a[i];
      end;
Writeln ('trong’,n, ‘so co', dem, 'so duong');
Writeln ('tong cac so duong trong', n, ‘so la', d:12:3);
   Readln
end.
Và thứ 6 tuần sau nhớ mang đi nộp không là 0 điểm đó cuteonion43

_________________
[You must be registered and logged in to see this image.]
Kiêu hãnh không phải là thứ mà ngươi có thể từ bỏ
Về Đầu Trang Go down
http://9-2tn-nt.forumvi.com
 
Tin Kiểm Tra 1 tiết
Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang 
Trang 1 trong tổng số 1 trang

Permissions in this forum:Bạn không có quyền trả lời bài viết
Lớp 9/2 trường Thái Nguyên :: Khu Vực Học Tập :: Thư Viện :: Các Môn Khác-
Chuyển đến