viết CT nhập vào mảng a gồm n pt (n

Question

viết CT nhập vào mảng a gồm n pt (n<101) in ra màn hình số lớn nhất

kimlien · Answer

program mang;

uses crt;

var A:array[1..100] of integer;

n,i,max:integer;

begin

clrscr;

write(‘Nhap so luong phan tu: ‘); readln(n);

write(‘NHAP GIA TRI TUNG PHAN TU CUA MANG’);

for i:=1 to n do

begin

write(‘A[‘,i,’]= ‘);

readln(A[i]);

end;

max:=A[1];

for i:=1 to n do

if A[i]>max then maX:=A[i];

write(A[i]);

readln

end.

mocmien · Answer

uses crt;

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

i,n,max: integer;

begin

clrscr;

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

for i:=1 to n do

begin

write (‘nhap a[‘,i,’]: ‘); readln (a[i]);

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

end;

writeln (‘so lon nhat la: ‘,max);

readln;

end.

viết CT nhập vào mảng a gồm n pt (n<101) in ra màn hình số lớn nhất