Giải giúp em bài này với :((

Câu 3: 

uses crt;

var n,i,kt:integer;

begin

clrscr;

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

if n>1 then 

begin

kt:=0;

for i:=2 to trunc(sqrt(n)) do 

  if n mod i=0 then kt:=1;

if kt=0 then writeln(n,' la so nguyen to')

else writeln(n,' la hop so');

end

else writeln(n,' khong la so nguyen to cung khong la hop so');

readln;

end.

program TinhTBCTimSoNT;

var
  ten, lop: string;
  n, i, tong, dem: integer;
  A: array [1..11] of integer;
  trung_binh: real;

function LaSoNguyenTo(x: integer): boolean;
var
  i: integer;
begin
  if x < 2 then
    LaSoNguyenTo := false
  else if x = 2 then
    LaSoNguyenTo := true
  else if x mod 2 = 0 then
    LaSoNguyenTo := false
  else
  begin
    i := 3;
    while (i <= trunc(sqrt(x))) and (x mod i <> 0) do
      i := i + 2;
    LaSoNguyenTo := x mod i <> 0;
  end;
end;

begin
  // Nhập tên và lớp của học sinh
  write('Nhập tên của học sinh: ');
  readln(ten);
  write('Nhập lớp: ');
  readln(lop);

  // Nhập dãy số nguyên và tính trung bình cộng
  repeat
    write('Nhập số phần tử của dãy số (n<12): ');
    readln(n);
  until n < 12;
  tong := 0;
  for i := 1 to n do
  begin
    write('Nhập phần tử thứ ', i, ': ');
    readln(A[i]);
    tong := tong + A[i];
  end;
  trung_binh := tong / n;

  // In tên, lớp, dãy số và trung bình cộng ra màn hình
  writeln('Học sinh: ', ten);
  writeln('Lớp: ', lop);
  write('Dãy số: ');
  for i := 1 to n do
    write(A[i], ' ');
  writeln;
 
  // In các số nguyên tố của dãy số ra màn hình
  writeln('Các số nguyên tố của dãy số:');
  for i := 1 to n do
    if LaSoNguyenTo(A[i]) then
      writeln(A[i]);
end.

N=int(input(‘n=’))

A=[0]*n

For I in range(0,n):

A=int(input(a[‘+str(i+1)+’]=’))

S=s+a[i]

S₁ =s/n

Print(s₁)

uses crt;

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

i,n,dem,t:integer;

begin

clrscr;

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

for i:=1 to n do 

begin

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

end;

dem:=0;

t:=0;

for i:=1 to n do 

  if a[i] mod 2<>0 then 

begin

inc(dem);

t:=t+a[i];

end;

writeln('Trung binh cong cac so le la: ',t/dem:4:2);

readln;

end.

program bai_2;

uses crt;

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

n,i,j,tam,vt,vt2,x,x2,k,ch:byte;

procedure yc1;

begin

  for i:=1 to n do

  begin

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

  end;

  for i:=1 to n do write(a[i]:3);

end;

procedure yc2;

begin

  for i:=1 to n do

  begin

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

  end;

  for i:=1 to n-1 do

  for j:=i+1 to n do

  if a[i]>a[j] then

  begin

    tam:=a[i];

    a[i]:=a[j];

    a[j]:=tam;

  end;

  writeln('mang a:');for i:=1 to n do write(a[i]:3);

end;

procedure yc3;

begin

    for i:=1 to n do

    begin

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

    end;

    write('nhap so x:');readln(x);

    for i:=n downto 1 do

    if a[i]=x then vt:=i;if a[i]=x then writeln('vi tri cua ',x,' trong mang a la:',vt);writeln;

    if a[i]<>x then writeln('khong tim thay ',x,' trong day so tren');writeln;

end;

procedure yc4;

begin

  for i:=1 to n do

  begin

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

  end;

  write('nhap so x2:');readln(x2);

  for i:=n downto 1 do

    if a[i]=x2 then vt2:=i;if x>0 then

    begin

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

      for i:=1 to n-1 do write(a[i]:3);

    end

  else  if a[i]<>x2 then write('khong tim thay ',x2,' trong day so tren');

end;

procedure yc5;

begin

    for i:=1 to n do

    begin

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

    end;

    write('nhap vi tri:');readln(vt);

    for i:=1 to n do

    if (vt=i) then writeln('phan tu o vi tri ',vt,' la:',a[vt]:3);

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

    for i:=n downto vt+1 do a[i]:=a[i-1];

    write('nhap so can sua:');readln(a[vt]);

    writeln('day so sau khi sua la:');

    for i:=1 to n do write(a[i]:3); writeln;

end;

procedure yc6;

begin

  for i:=1 to n do

  begin

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

  end;

  write('nhap vi tri can chen k:');readln(k);

  for i:=n+1 downto k+1 do a[i]:=a[i-1];

  write('nhap so can chen vao  day:');readln(a[k]);

  writeln('day so sau khi chen ',a[k],' vao  day la:');

  for i:=1 to n+1 do write(a[i]:3);writeln;

end;

procedure yc7;

begin

  for i:=1 to n do

  begin

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

  end;

  for i:=1 to n do

  write(a[i]:3);

  writeln;

end;

BEGIN

  clrscr;

  while ch<8 do

  begin

    clrscr;

    writeln('CHON MOT TRONG CAC SO SAU:');

    writeln('1.NHAP DAY SO:');

    writeln('2.SAP XEP DAY SO:');

    writeln('3.TIM MOT SO:');

    writeln('4.XOA MOT SO:');

    writeln('5.SUA MOT SO:');

    writeln('6.CHEN MOT SO:');

    writeln('7.IN DAY SO:');

    writeln('8.THOAT KHOI CHUONG TRINH:');

    write('nhap so co yeu cau ban muon lam:');readln(ch);

    if ch<8 then

    begin write('nhap so n:');readln(n); end;

    case ch of

      1:yc1;

      2:yc2;

      3:yc3;

      4:yc4;

      5:yc5;

      6:yc6;

      7:yc7;

    end;

    readln;

  end;

  readln;

end.

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

i,k:integer;

p:longint;

begin

write('k = ');readln(k);

p:=1;

for i:=1 to k do

begin

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

if a[i]<30 then p:=p*a[i];

end;

write('Tich la ',p);

readln

end.

b) 

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

i,k:integer;

s:longint;

begin

write('k = ');readln(k);

for i:=1 to k do

begin

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

if a[i]<100 then s:=s+a[i];

end;

write('Tong la ',s);

readln

end.

program tinh_trung_binh_cong;

uses crt;

var i,n,max,min:integer

tbc:real;

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];min:=a[1];

for i;1= to n do

begin

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

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

end;

tbc:=(max+min)/2;

writeln(tbc);

readln;

end

uses crt;

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

i,n,max,min: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];

min:=a[1];

for i:=1 to n do 

begin

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

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

end;

writeln((max+min)/2:4:2);

readln;

end.

#include <bits/stdc++.h>

using namespace std;

long long a[10000],i,n,t;

int main()

{

freopen("avg.inp","r",stdin);

freopen("avg.out","w",stdout);

cin>>n;

for (i=1; i<=n; i++) cin>>a[i];

t=0;

for (i=1; i<=n; i++) t+=a[i];

cout<<fixed<<setprecision(1)<<(t*1.0)/(n*1.0);

return 0;

}