đề thi học sinh giỏi huyện

Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down

đề thi học sinh giỏi huyện

Bài gửi by huongtramy on 6/1/2011, 3:41 pm

Viết chương trình để nhập n số tự nhiên a1,a2,...an( n nhập từ bàn phím) thì sẽ in ra dãy n số tự nhiên b1,b2,b3...,bn trong đó bk là số lượng các số đứng trước ak và nhỏ hơn ak
Ví dụ: n=7 và các số đã nhập là6;1;9;5;7;4;8
in ra: 0;0;2;1;3;1;5
avatar
huongtramy
Thành viên mới
Thành viên mới

Nam Ngày sinh : 17/05/1978
Tuổi : 39
Ngày đăng ký : 06/01/2011

Về Đầu Trang Go down

Re: đề thi học sinh giỏi huyện

Bài gửi by Admin on 9/1/2011, 12:49 pm

của bạn đây

Code:

program help;
uses crt;

var n:integer;
    a,b:array[1..100] of integer;

procedure nhap;
var i,j:integer;
begin
write('nhap so phan tu : ');
readln(n);
for i:=1 to n do
    begin
        write('a[',i,']=');
        readln(a[i]);
        for j:=1 to i-1 do
            if (a[j]<a[i]) then inc(b[i]);
    end;
end;

procedure xuat;
var i:integer;
begin
write('mang kq : ');
for i:=1 to n do write(b[i],' ');
end;

begin
clrscr;
nhap;
xuat;
readln;
end.
avatar
Admin
Quản trị viên
Quản trị viên

Nam Ngày sinh : 18/01/1992
Tuổi : 25
Ngày đăng ký : 25/04/2008

http://diendanpascal.forumotion.com

Về Đầu Trang Go down

Re: đề thi học sinh giỏi huyện

Bài gửi by bí mật cuộc sống on 10/1/2011, 8:39 pm

Dùng Quy hoạch động bài này cho nhanh Very Happy

________________________

avatar
bí mật cuộc sống
Moderator
Moderator

Nam Ngày sinh : 12/08/1989
Tuổi : 28
Ngày đăng ký : 05/12/2010

http://tosonnguyenxyz.summerhost.info/web/

Về Đầu Trang Go down

Re: đề thi học sinh giỏi huyện

Bài gửi by longzenvo on 22/2/2011, 10:07 pm

ma lam dc quy hoach dong thi kon noi lam gi
avatar
longzenvo
Thành viên mới
Thành viên mới

Nam Ngày sinh : 05/05/1993
Tuổi : 24
Ngày đăng ký : 22/02/2011

Về Đầu Trang Go down

Re: đề thi học sinh giỏi huyện

Bài gửi by handboyxyz on 23/2/2011, 9:48 pm

bai nay don gian wa' Razz
avatar
handboyxyz
Thành viên mới
Thành viên mới

Nam Ngày sinh : 18/07/1996
Tuổi : 21
Ngày đăng ký : 23/02/2011

Về Đầu Trang Go down

Re: đề thi học sinh giỏi huyện

Bài gửi by Sponsored content


Sponsored content


Về Đầu Trang Go down

Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang

- Similar topics
» Bán đất 2 mặt tiền đường Nguyễn Sinh Sắc Đà Nẵng,khu Tây Bắc
» -0936175427-Vệ sinh máy lạnh tại nhà quận 8,THẾ VINH UY TÍN call:0862786708,Thay thế block máy lạnh giá rẽ quận 8,Vệ sinh máy lạnh tại nhà quận 8,Vệ sinh máy lạnh tại nhà quận 8,Vệ sinh máy lạnh tại n
» -0936175427-Vệ sinh máy lạnh tại nhà quận 5,THẾ VINH UY TÍN call:0862786708,Thay thế block máy lạnh giá rẽ quận 5,Vệ sinh máy lạnh tại nhà quận 5,Vệ sinh máy lạnh tại nhà quận 5,Vệ sinh máy lạnh tại n
» 0927333554=>Sửa máy lạnh quận 3,vệ sinh máy lạnh quận 3)LH:0927333554-THÁI HÙNG)vệ sinh máy lạnh quận 3)vệ sinh máy lạnh quận 3)vệ
» ^0938103664^Vệ sinh máy lạnh quận 7,(0866800478)Vệ sinh máy lạnh tại nhà,tay nghề cao-đảm bảo chất lượng,có bảo hành,...Vệ sinh má

 
Permissions in this forum:
Bạn không có quyền trả lời bài viết