Bài 1: Nhập xuất và tính tổng các phần tử trong mảng, tổng các số nguyên dương chia hết cho 5 Bài 2: Cho 1 dãy số gồm n phần tử n<=15. Giá trị từng phần tử là số thực. Thực hiện các chương trình sau: a) Nhập từ bàn phím số phần tử và giá trị từng phần tử b) Tính tổng các phần tử âm của dãy c) Tính tổng và trung bình cộng của các phần tử chẵn của dãy d) Tìm phần tử có giá trị lớn nhất của dãy e) Tìm phần tử có giá trị nhỏ nhất f) Sắp xếp dãy theo chiều giảm dần về giá trị của từng phần tử g) In các kết quả trên ra màn hình

Bài 1:

Program BTT;
Uses crt;
Var A: array[1..1000] of longint;
    n,i,t,s: longint;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        t:=0; s:=0;
        For i:=1 to n do
        Begin
                Write('A[',i,'] = ');
                Readln(A[i]);
                t:=t+A[i];
                If (A[i] mod 5 = 0) and (A[i]>0) then s:=s+A[i];
        End;
        Write(t,' ',s);
        Readln
End.

Bài 2:

Program BTT;
Uses crt;
Var A: array[1..1000] of longint;
    n,i,t,s,max,min,tg,j,d: longint;
    tbc: real;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        t:=0; s:=0; d:=0; min:=maxlongint;
        For i:=1 to n do
        Begin
                Write('A[',i,'] = ');
                Readln(A[i]);
                If A[i]<0 then t:=t+A[i];
                If A[i] mod 2 = 0 then
                Begin
                        s:=s+A[i];
                        inc(d);
                End;
                If A[i]<min then min:=A[i];
        End;
        max:=A[1];
        For i:=2 to n do
                If A[i]>max then max:=A[i];
        tbc:=s/d;
        For i:=1 to n-1 do
                For j:=i+1 to n do
                        If A[i]<A[j] then
                        Begin
                                tg:=A[i];
                                A[i]:=A[j];
                                A[j]:=tg;
                        End;
        Writeln('b) ',t);
        Writeln('c) ',s,' ',tbc:0:2);
        Writeln('d) ',max);
        Writeln('e) ',min);
        For i:=1 to n do Write(A[i],' ');
        Readln
End.

Bài 1:

var n,i,d:longint;

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

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

for i:=1 to n do

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

for i:=1 to n if a[i] mod 5=0 then then inc(d);

writeln;

write('So luong: ',d);

readln;

end.