Diễn Đàn Pascal
Bạn có muốn phản ứng với tin nhắn này? Vui lòng đăng ký diễn đàn trong một vài cú nhấp chuột hoặc đăng nhập để tiếp tục.

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

5 posters

Go down

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

Bài gửi by huongtramy 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
huongtramy
huongtramy
Thành viên mới
Thành viên mới

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

Về Đầu Trang Go down

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

Bài gửi by Admin 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.
Admin
Admin
Quản trị viên
Quản trị viên

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

https://diendanpascal.forumvi.com

Về Đầu Trang Go down

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

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

Dùng Quy hoạch động bài này cho nhanh Very Happy
bí mật cuộc sống
bí mật cuộc sống
Moderator
Moderator

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

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

Về Đầu Trang Go down

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

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

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

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

Về Đầu Trang Go down

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

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

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

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

Về Đầu Trang Go down

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

Bài gửi by Sponsored content


Sponsored content


Về Đầu Trang Go down

Về Đầu Trang

- Similar topics

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