Ý tưởng: (của câu `c, d, g`)

- Câu `c` thì bạn chỉ cần tìm tổng các phần tử trong mảng rồi lấy tổng vừa tìm được chia cho số lượng phần tử

- Câu `d` thì bạn tìm: tổng các phần tử là số dương và số lượng các phần tử là số dương, rồi lấy tổng các phần tử là số dương chia cho số lượng các phần tử là số dương

- Câu `g` thì bạn dựa trên lý thuyết của `1` số nguyên tố là chỉ chia hết cho `1` và chính nó, hướng giải quyết ở đây là bạn sẽ đếm ước của mỗi phần tử rồi kiểm tra nó có bằng `2` không, nếu có thì là số nguyên tố và ngược lại

Code: (của câu `e, f, h`)

uses crt;
var a: array[1..1000] of longint;
    n, i, k, distance: longint;
    check: boolean;
begin
clrscr;
    write('n = '); readln(n);
    write('Nhap day so: ');
    
    for i:=1 to n do read(a[i]);
    
    write('k = '); readln(k);
    
    for i:=1 to n do
        if a[i] = k then
            begin
                writeln('e) Vi tri dau tien: ', i);
                break;
            end;
    
    write('f) Vi tri cac phan tu bang ', k, ': ');
    for i:=1 to n do
        if a[i] = k then
            begin
                write(i, ' ');
            end;
    writeln;
    
    write('h) ');
    check:=true;
    
    if n >= 2 then
        begin
            distance:=a[2] - a[1];
            
            for i:=3 to n do
                if a[i] - a[i - 1] <> distance then
                    begin
                        check:=false;
                        break;
                    end;
            
            if check then writeln('Day so vua nhap la cap so cong')
            else writeln('Day so vua nhap khong phai la cap so cong');
        end
    else writeln('Day so vua nhap khong phai la cap so cong');
readln; readln;
end.