Question

Viết chương trình nhập từ bàn phím các phần tử của mảng có độ dài là n (n được nhập từ bàn phím). Sau đó in ra phần tử có giá trị lớn nhất.

Answer 1

program max;

uses crt;

var i,n,max:integer;

a:array[1..100]of integer;

begin

clrscr;

write('nhap n:');readln(n);

for i:=1 to n do

begin

write('a[',i,']=');readln(a[i]);

if a[i]>max then max:=a[i];

end;

writeln('gia tri lon nhat trong day tren la: ',max);

readln;

end.

Answer 2

var i,n,max:integer;

a:array[1..200] of integer;

begin

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

for i:=1 to n do

begin

write('a[',i,']=');readln(a[i]);

end;

max:=a[1];

For i:=2 to n do

If a[i] > max then max:=a[i];

writeln('gia tri lon nhat trong day tren la: ',max);

readln;

end.

Answer 3

var i,n,max: integer;

a: array[1..100] of integer;

begin

readln(n);

for i:=1 to n do readln(a[i]);

max:=a[1];

for i:=2 to n do if max<a[i] then max:=a[i];

write(max);

readln

end.