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
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.
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.