program b1;
uses crt;
var n,i:integer;
tb:real;
a:array[1..100] of integer;
begin
clrscr;
write('nhap n:');readln(n);
writeln('nhap day so:');
for i:=1 to n do
begin
write('a[',i,']=');readln(a[i]);
end;
tb:=0;
for i:=1 to n do tb:=tb+a[i];
tb:=tb/n;
write('trung binh cong cua day so vua nhap la:',tb:2:2);
readln;
end.

program b1;
uses crt;
var a:array[1..100] of integer; i,n,max,min:integer;
begin
clrscr;
write('Nhap vao so nguyen n:');
readln(n);
for i:=1 to n do
readln(a[i]);
min:=a[1];
max:=a[1];
for i:=2 to n do
begin
if(a[i]<min) then min:=a[i];
if(a[i]>max) then max:=a[i];
end;
writeln(' gia tri lon nhat = ',max);
writeln(' gia tri nho nhat = ',min);
readln;
end.

Tham khảo!

uses crt;
var n, i,dem:longint;a:array[1..100] of real;
x:real;
begin
clrscr;
write('nhap tu ban phim so nguyen n:');readln(n);
for i:=1 to n do
begin
write('a[',i,']=');
readln(a[i]);
end;
write('nhap vao x:'); readln(x);
dem:=0;
for i:=1 to n do
if a[i]=x then dem:=dem+1;
if dem=0 then write('trong day khong co so khong lon hon ',x:2:2)
else write('co ',dem,' so trong day bang ',x:2:2);
readln;
end.
Tham khảo! Mình không chắc lém

Tham khảo nha!

program b1;
uses crt;
var i,n: integer; a:array[1..100] of integer;
begin
clrscr;
write('nhap vao so nguyen n :');
readln(n);
for i:=1 to n do
begin
write('a[',i,']=');  readln(a[i]);
end;
write('Cac so chan la:');
for i:=1 to n do if a[i] mod 2=0 then
write( a[i],' ');
readln;
end.

program b1;
uses crt;
var i,n: integer; a:array[1..100] of integer; s:longint;
begin
clrscr;
write('nhap vao so nguyen n:');
readln(n);
for i:=1 to n do
begin
write('a[',i,']=');  readln(a[i]);
end;
s:=0;
for i:=1 to n do s:=s+a[i];
write('Tong cac phan tu =',s);
readln;
end.

Tham khảo!

Tham khảo thui nhé!

Câu 1: in ra 1 2 3 4 5 6 7 8 9 10
Câu 4: kết quả là 15
Câu 5:
uses crt;
var i,s: integer;
begin
clrscr;
s:=0;
for i:=1 to 10 do s:=s+i;
write('Tong ca so tu nhien tu 1 den 10=',s);
readln;
end.

nghỉ game=)))