THPT Thạch Thất - Hà Nội

_ Welcome To Forum My School Thạch Thất _


    Tìm Max của 1 dãy

    Share
    avatar
    Admin
    Admin

    Tổng số bài gửi : 15
    Điểm : 40
    Danh Tiếng : 0
    Join date : 16/10/2010
    Age : 25
    Đến từ : Thạch Thất Hà Nội

    Tìm Max của 1 dãy

    Bài gửi  Admin on Mon Oct 25, 2010 2:52 pm

    program tim_max ;
    uses crt;
    const
    nmax=250;
    type
    arrint=array [1..nmax] of integer;
    var max,n,i ,csmax:integer;
    a:arrint;
    begin
    clrscr;
    write('nhap so luong phan tu cua day so ,N=');
    readln(n);
    for i:=1 to n do
    begin
    write('phan tu thu ',i,'=');
    readln(a[1]);
    end;
    max:=a[1];csmax:=1;
    for i:=2to n do
    if a[i]>max then
    begin
    max:=a[i];
    csmax:=i;
    end;
    writeln('gia tri cua phan tu max:',max);
    writeln('chi so phan tu max:',csmax);
    write('an phim <enter> de ket thuc ');
    readln
    end.


    _________________
    [You must be registered and logged in to see this link.] or [You must be registered and logged in to see this link.]
    Y!m: xdatai_codon
    Mobile: 01657.72.33.72

      Hôm nay: Fri Oct 19, 2018 7:24 am