Viết chương trình cho phép tính trung bình cộng của 4 số

tham khảo https://hayhochoi.vn/cach-tinh-theo-phuong-trinh-hoa-hoc-va-bai-tap-van-dung-hoa-8-bai-22.html 

Đề không rõ ràng. Em xem lại nhé!

uses crt;

var n,x:integer;

begin

clrscr;

write('Nhap n='); readln(n);

writeln('n=',n);

x:=n;

if x mod 2=0 then writeln(x,' la so chan')

else writeln(x,' la so le');

readln;

end.

Program HOC24;

var i,n: integer;

tb: real;

a: array[1..10] of real;

begin

for i:=1 to n do

begin

write('Nhap can nang cua ban thu ',i,': '); readln(a[i]);

end;

tb:=0;

for i:=1 to n do tb:=tb+a[i];

write('Trung binh cong cua 10 ban do la: ',tb/10:1:2);

readln

end.

uses crt;

var i,n: integer;

tb: real;

a: array[1..10] of real;

begin

clrscr;

n:=10;

for i:=1 to n do

begin

write('Nhap can nang cua ban thu ',i,': '); readln(a[i]);

end;

tb:=0;

for i:=1 to n do tb:=tb+a[i];

write('Trung binh cong cua 10 ban do la: ',tb/10:1:2);

readln

end.

Thêm dấu ";" sau MAX:=a nhé

Uses CRT;

Var a,b,c,d,MAX : integer;

Begin

clrscr;

Readln(a,b,c,d);

MAX:=a

If MAX<b then MAX:=b;

If MAX<c then MAX:=c;

If MAX<d then MAX:=d;

Writeln('So lon nhat la',MAX);

Readln

End.

( Chưa học nhưng mình đọc trước :v Sai thì mong được bổ sung )

Program HOC24;

var i,n: integer;

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

t: real;

begin

write('Nhap so phan tu: '); readln(n);

for i:=1 to n do

begin

write('Nhap so thu ',i,': '); readln(a[i]);

end;

t:=0;

for i:=1 to n do t:=t+a[i];

t:=t/n;

write('Trung binh cong cua day so la: ',t:5:2); 

readln

end.

uses crt;

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

t,i,n:integer;

begin

clrscr;

write('Nhap do dai cua day:'); readln(n);

for i:=1 to n do 

begin

write('A[',i,']='); readln(a[i]);

end;

t:=0;

for i:=1 to n do 

  t:=t+a[i];

writeln('Gia tri trung binh cua day la: ',t/n:4:2);

readln;

end.

Câu 1:

uses crt;
var a,b,c,d,min:longint;
begin
clrscr;
write('a='); readln(a);
write('b='); readln(b);
write('c='); readln(c);
write('d='); readln(d);
min:=a;
if min>b then min:=b;
if min>c then min:=c;
if min>d then min:=d;
writeln('so nho nhat la: ',min);
readln;
end.

Câu 2:

uses crt;
var a,b,c:real;
begin
clrscr;
write('a='); readln(a);
write('b='); readln(b);
write('c='); readln(c);
if (a>0) and (b>0) and (c>0) then
begin
if (a+b>c) and (a+c>b) and (b+c>a) then
begin
if (a=b) and (b=c) then writeln('day la 3 canh trong mot tam giac deu')
else writeln('day khong la 3 canh trong mot tam giac deu');
end
else writeln('day khong la 3 canh trong mot tam giac');
end
else writeln('vui long nhap 3 so duong');
readln;
end.

Câu 3:

uses crt;
var a,dv,ch,tr:longint;
begin
clrscr;
write('a='); readln(a);
if (a>=100) and (a<=999) then
begin
dv:=a mod 10;
ch:=a div 10; ch:=ch mod 10;
tr:=a div 100; tr:=tr mod 10;
writeln('chu so hang tram: ',tr);
writeln('chu so hang chuc: ',ch);
writeln('chu so hang don vi: ',dv);
end
else writeln('vui long nhap so co ba chu so');
readln;
end.

Câu 4:

uses crt;
var a,s:longint;
begin
clrscr;
s:=1;
write('so thu 1:'); readln(a);
s:=s*a;
write('so thu 2:'); readln(a);
s:=s*a;
write('so thu 3:'); readln(a);
s:=s*a;
write('so thu 4:'); readln(a);
s:=s*a;
writeln('trung binh nhan cua 4 so la: ',s/4:4:2);
readln;
end.

Câu 5:

uses crt;
var a,s:longint;
begin
clrscr;
s:=0;
write('so thu 1:'); readln(a);
s:=s+a;
write('so thu 2:'); readln(a);
s:=s+a;
write('so thu 3:'); readln(a);
s:=s+a;
write('so thu 4:'); readln(a);
s:=s+a;
writeln('trung binh cong cua 4 so la: ',s/4:4:2);
readln;
end.

program mang;

uses crt;

var

      N, i: integer;

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

      sum, average: double;

begin

      clrscr;

      write('Nhap so phan tu mang: ');

      readln(N);

      sum := 0;

      for i:= 1 to N do

      begin

            write('Nhap phan tu thu ', i, ': ');

            readln(a[i]);

            sum := sum + a[i];

      end;

      writeln('Cac phan tu cua mang la:');

      for i:= 1 to N do

            write(a[i], ' ');

      average := sum / N;

      writeln('Tong cac phan tu cua mang la: ', sum:0:2);

      writeln('Trung binh cong cua mang la: ', average:0:2);

      readln;

end.