Ai giỏi tin giúp em với ạ Viết chương trình nhập N số nguyên từ bàn phím và in ra màn hình số lớn nhất.N cũng được nhập từ bàn phím

Ai giỏi tin giúp em với ạ
Viết chương trình nhập N số nguyên từ bàn phím và in ra màn hình số lớn nhất.N cũng được nhập từ bàn phím

0 bình luận về “Ai giỏi tin giúp em với ạ Viết chương trình nhập N số nguyên từ bàn phím và in ra màn hình số lớn nhất.N cũng được nhập từ bàn phím”

  1. uses crt;

    var a,b:integer;

    begin

    clrscr;

    write( ‘nhap n= ‘); readln(n);

    write( ‘nhap a= ‘); readln(a);

    write( ‘nhap b= ‘); readln(b);

    if (a<b) then write (a) else write(b);

    write(‘so lon nhat la n= ‘, n);

    readln

    end.

    Bình luận
  2. var a:array[1..100000] of longint; n,i,k:longint; procedure sort(l,r: longint); (Thủ tục xắp xếp)

    var i,j,x,tg: longint;

    begin i:=l;j:=r;x:=a[(l+r) div 2];

    repeat while a[i]<x do i:=i+1;

    while x<a[j] do j:=j-1; if i<=j then begin

    tg:=a[i];a[i]:=a[j]; a[j]:=tg;i:=i+1;j:=j-1;end;

    until i>j; if l<j then sort(l,j);

    if i<r then sort(i,r); end; begin read(n);

    for i:=1 to n do read(a[i]); sort(1,n);

    write(a[n]);

    (in ra số cuối cùng trong dãy tăng dần là lớn nhất)

    readln;

    end.

    Bình luận

Viết một bình luận