Bài 1:

uses crt;

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

i,n,max: integer;

begin

clrscr;

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

max:=a[1];

for i:=2 to n do

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

writeln ('Max=',max);

readln;

end.

Bài 2:

uses crt;

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

i,n,min: integer;

begin

clrscr;

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

min:=a[1];

for i:=2 to n do

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

writeln ('Min=',min);

readln;

end.

Bài 3:

uses crt;

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

i,n,s: integer;

begin

clrscr;

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

s:=0;

for i:=1 to n do

begin

write ('nhap phan tu thu ',i,': ');  readln (a[i]);

s:=s+a[i];

end;

writeln ('tong la: ',s);

readln;

end.

Bài 4:

uses crt;

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

i,n,s: integer;

begin

clrscr;

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

s:=0;

for i:=1 to n do

begin

write ('nhap phan tu thu ',i,': ');  readln (a[i]);

s:=s+a[i];

end;

writeln ('trung binh la: ',s/n:1:2);

readln;

end.

Bài 5:

uses crt;

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

i,n,s: integer;

begin

clrscr;

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

s:=0;

for i:=1 to n do

begin

write ('nhap phan tu thu ',i,': ');  readln (a[i]);

if a[i] mod 2=0 then s:=s+a[i];

end;

writeln ('tong la: ',s);

readln;

end.

Bài 6:

uses crt;

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

i,n,s: integer;

begin

clrscr;

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

s:=1;

for i:=1 to n do

begin

write ('nhap phan tu thu ',i,': ');  readln (a[i]);

if a[i] mod 3=0 then s:=s*a[i];

end;

writeln ('tich la: ',s);

readln;

end.

Bài 7:

uses crt;

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

i,n,s,ss: integer;

begin

clrscr;

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

s:=1;

ss:=0;

for i:=1 to n do

begin

write ('nhap phan tu thu ',i,': ');  readln (a[i]);

if a[i] mod 2=1 then s:=s*a[i]

else ss:=ss+a[i];

end;

writeln ('tong la: ',ss);

writeln ('tich la: ',s);

readln;

end.

Bài 8:

uses crt;

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

i,n,d,dd: integer;

begin

clrscr;

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

d:=0;

dd:=0;

for i:=1 to n do

begin

write ('nhap phan tu thu ',i,': ');  readln (a[i]);

if a[i] mod 2=1 then dd:=dd+1;

else d:=d+1;

end;

writeln ('co ',d,' phan tu chan');

writeln ('co ',dd,' phan tu le');

readln;

end.

1.

uses crt;
var i,n,max:integer;
a:array[1..100] of integer;
begin
clrscr;
for i:=1 to 10 do
begin
 write('A[',i,']=');
 readln(a[i]);
end;
max:=a[1];
for i:=1 to 10 do
 if max< a[i] then max:=a[i];
write('so be nhat la:',max);
readln;
end.

2.

uses crt;
var i,n,min:integer;
a:array[1..100] of integer;
begin
clrscr;
for i:=1 to 10 do
begin
 write('A[',i,']=');
 readln(a[i]);
end;
min:=a[1];
for i:=1 to 10 do
 if min > a[i] then min:=a[i];
write('so be nhat la:',min);
readln;
end.

3.

uses crt;
var i,n,max:integer;
a:array[1..100] of integer;
begin
clrscr;
write('nhap so ptu:');readln(n);
for i:=1 to n do
begin
 write('A[',i,']=');
 readln(a[i]);
 max:=max+a[i];
end;
write('tong cac ptu trong mang la:',max);
readln;
end.

4.

uses crt;
var i,n:integer;
max:real;
a:array[1..100] of integer;
begin
clrscr;
write('nhap so ptu:');readln(n);
for i:=1 to n do
begin
 write('A[',i,']=');
 readln(a[i]);
 max:=max+a[i];
end;
write('tong TBC cac ptu trong mang la:',max/n:4:2);
readln;
end.

5.

uses crt;
var i,n:integer;
max:real;
a:array[1..100] of integer;
begin
clrscr;
write('nhap so ptu:');readln(n);
for i:=1 to n do
begin
 write('A[',i,']=');
 readln(a[i]);
 max:=max+a[i];
end;
write('tong TBC cac ptu trong mang la:',max/n:4:2);
readln;
end.

6.

uses crt;
var i,n,max:integer;

a:array[1..100] of integer;
begin
clrscr;
write('nhap so ptu:');readln(n); max:=0;
for i:=1 to n do
begin
 write('A[',i,']=');
 readln(a[i]);
 if a[i] mod 3=0 then max:=max+a[i];
end;
write('tong cac ptu chia het cho 3 trong mang la:',max);
readln;
end.

7.

uses crt;
var i,n,max,s:integer;

a:array[1..100] of integer;
begin
clrscr;
write('nhap so ptu:');readln(n); max:=0;s:=1;
for i:=1 to n do
begin
 write('A[',i,']=');
 readln(a[i]);
 if a[i] mod 2=0 then max:=max+a[i];
 if a[i] mod 2 <>0 then s:=s*a[i];
end;
writeln('tong cac ptu chan trong mang la:',max);
write('tich cac ptu le la:',s);
readln;
end.

8.

uses crt;
var i,n,max,s:integer;

a:array[1..100] of integer;
begin
clrscr;
write('nhap so ptu:');readln(n); max:=0;s:=0;
for i:=1 to n do
begin
 write('A[',i,']=');
 readln(a[i]);
 if a[i] mod 2=0 then max:=max+1;
 if a[i] mod 2 <>0 then s:=s+1;
end;
writeln('so cac ptu chan trong mang la:',max);
write('so cac ptu ptu le trong mang la:',s);
readln;
end.

(mong dc 5*+hat nhất)