mình viết phần chính thôi nha nên bạn khi phần khai báo nhaaaa! :3
Câu 1: (nhập mảng) (TBC khai báo kiểu dữ liệu real. Còn lại là integer nha bạn)
S:=0;
For i:=1 to n do
   S:=S+A[i];
TBC:=S/n;
Câu 2: (tạo file để Nhập Sâu và file để xuất kết quả) (S:string; i,dem:integer;)

dem:=0;

for i:=1 to length(S) do

   if S[i] in ['0'..'9'] then dem:=dem+1;
(in kết quả dem ra file out)
câu 3: (nhập xâu)
(chuẩn hóa xâu)

dem:=0;

kt:=false;
for i:=1 to length(S) do

   begin

       if S[i]=#32 then dem:=dem+1;

       if dem=2 then kt:=true;

       if kt then write(S[i]);

   end;

CHÚC BẠN HỌC TỐT :3

Câu 1 :

uses crt;

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

    i, N, K : integer;

begin

clrscr;

K := 0;

write('Nhap do dai day so = '); readln(N);

for i := 1 to N do

    begin

        write('Nhap so thu ', i ,' = ');

        readln(a[i]);

        K := K + a[i];

    end;

write('Trung binh cong cua day so = ', K / n : 2 : 2);

readln

end.

Câu 2 :

uses crt;

var f1, f2 : text;

    s : string; i, d : integer;

begin

clrscr;

assign(f1, 'INP.TXT'); reset(f1);

assign(f2, 'OUT.XTX'); rewrite(f2);

readln(f1, s); d := 0;

for i := 1 to length(s) do

    if s[i] in ['0'..'9'] then d := d + 1;

write(f2, d);

close(f1); close(f2);

readln

end.

Câu 3 :

uses crt;

var S : string;

begin

clrscr;

S := 'Truong THPT Phan Dang Luu';

delete(S, 1, 12);

write(S);

readln

end.