Viết chương trình nhập vào số n.in ra số lớn nhất trong n số vừa nhập.mn giúp mik vs
Viết chương trình nhập vào số n.in ra số lớn nhất trong n số vừa nhập.mn giúp mik vs
By Bella
By Bella
Viết chương trình nhập vào số n.in ra số lớn nhất trong n số vừa nhập.mn giúp mik vs
uses crt;
var n,i,x,max: integer;
Begin
clrscr;
write(‘Nhap n: ‘); readln(n);
max:=1;
for i:=1 to n do
begin
write(‘Nhap so thu ‘,i,’: ‘); readln(x);
if max<x then max:=x;
end;
write(‘So lon nhat: ‘,max);
readln
End.
var a: array[1..100] of integer;
max: integer; n, i: byte;
Begin
Write(‘n = ‘); readln(n);
For i:=1 to n do
Begin
Write(‘nhap so thu ‘, i); readln(a[i]);
End;
Max:=a[1];
For i:=2 to n do if a[i]>max then
Max:=a[i];
Write(‘so lon nhat: ‘, max);
Readln
End.