Viết chương trình pascal nhập n số nguyên từ bàn phím và ghi ra màn hình số lớn nhất trong các số đó. Số n cũng được nhập vào từ bàn phím.(Ai giải hộ em với ạ)
Viết chương trình pascal nhập n số nguyên từ bàn phím và ghi ra màn hình số lớn nhất trong các số đó. Số n cũng được nhập vào từ bàn phím.(Ai giải hộ em với ạ)
program baitap;
uses crt;
var n,i,max : integer;
a : array[1..100] of integer;
begin clrscr;
write(‘Nhap so n :’); readln(n);
for i:=1 to n do begin
write(‘Nhap phan tu thu ‘,i,’ la : ‘); readln(a[i]);
end;
max:=a[1];
for i:=2 to n do if max<a[i] then max:=a[i];
write(‘So lon nhat trong mang la :’, max);
readln
end.
var a:array[1..1000000] of integer;
max,n,i:integer;
begin
write(‘nhap n :’);
read(n);
for i:=1 to n do
begin
write(‘a[‘,i,’]=’);
read(a[i]);
end;
max:=a[1];
for i:=1 to n do
if max<a[i] then max:=a[i];
write(‘So lon nhat la: ‘,max);
end.