Admin_inchou
Admin
Tổng số bài gửi : 347
Vote : 10
Join date : 12/01/2012
Age : 25
Tài sản
Tài sản:
 | Tiê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 đá  - 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 đó | |
|
