Câu 5:
uses crt;
var i,n:integer; a:array[1..1000000]of real;
begin
clrscr;
write('Nhap n: ');readln(n);
for i:=1 to n do
begin
write('Nhap diem kiem tra hoc ki mon tin cua ban thu ',i,': ');readln(a[i]);
end;
writeln('Diem kiem tra cua ',n,' ban: ');
for i:=1 to n do writeln('Diem cua ban thu ',i,': ',a[i]:0:2);
readln
end.
Câu 6:
uses crt;
var i,n,max,min:integer; a:array[1..1000000]of longint;
begin
clrscr;
write('Nhap n: ');readln(n);
for i:=1 to n do
begin
write('A[',i,']= ');readln(a[i]);
if i=1 then begin max:=a[i]; min:=a[i]; end;
if max<a[i] then max:=a[i];
if min>a[i] then min:=a[i];
end;
writeln('Gia tri lon nhat: ',max);
writeln('Gia tri nho nhat: ',min);
readln
end.