uses crt;

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

i，n: integer;

min，max: real;

begin

clrscr;

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

for i:=1 to n do

begin

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

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

end;

min:=a[1];

for i:=2 to n do if min>a[i] then min:=a[i];

writeln (‘so lon nhat: ‘，max:1:2);

writeln (‘so nho nhat: ‘，min:1:2);

readln;

end.

Pascal

Câu 1 : 

uses crt;
var i,n,max,sum: 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]);
end;
max:=a[1];
sum:=0;
for i:=2 to n do
begin
if max < a[i] then max:=a[i];
end;
writeln('So lon nhat la : ',max);
write('Tong cac phan tu = ');
for i:=1 to n do sum:=sum+i;
write(sum);
readln
end.

Câu 2: 

uses crt;
var a:array[1..100] of real;
i,n : integer;
min,sum: real;
begin
clrscr;

sum:=1;
write('Nhap n : ');
readln(n);
for i:=1 to n do
begin
write('a[',i,']= ');
readln(a[i]);
end;
min:=a[1];
for i:=2 to n do 
begin
if min > a[i] then min:=a[i];
end;
writeln('So nho nhat la : ',min:2:2);
write('Tich phan tu = ');
for i:=1 to n do
sum:=sum*a[i];
write(sum:2:2);
readln
end.