Bài $1$

Program Hotboy;

Uses crt;

Var A:array[1..100] of integer;

I,n,S : real;

Begin

Clrscr ;

S:=0;

Write('nhap so n'); readln(n);

For i:=1 to n do 

Begin

Write('A[',i,']'); readln(A[i]); 

End;

For i:=1 to n do

S:=S+ A[i] ; 

Writeln('Tong la',S); 

Readln

End.

Bài $2$

Program Hotboy;

Uses crt;

Var A:array[1..100] of integer;

I,n,X : byte;

Begin

Clrscr ;

N:=0;

Write('nhap so X'); readln(X);

Write('nhao so n'); readln(n);

For i:=1 to n do 

Begin

Write('A[',i,']'); readln(A[i]); 

End;

For i:=1 to n do

If A[i] = X then inc(n);

Writeln('co so phan tu bang ',X,' trong mang la',n); 

Readln

End.

Bài 1:

program oken;

uses crt;
var a: array [1..100] of integer;
    i,n,tong:longint;
begin
        clrscr;
        write('nhap so: '); readln(n);
        for i:=1 to n do
                begin
                     write('a[',i,']: '); readln(a[i]);
                     tong:=tong+a[i];
                end;
        writeln('tong cua mang: ',tong);
        readln;
end.

Bài  2:

program oken;

uses crt;
var a: array [1..100] of integer;
    n,x,i,dem:integer;
begin
        clrscr;
        write('nhap so phan tu cua mang: '); readln(n);
        for i:=1 to n do
           begin
              write('a[',i,']: '); readln(a[i]);
           end;
        write('nhap x: '); readln(x);
        dem:=0;
        for i:=1 to n do
           if x=a[i] then dem:=dem+1;
        if dem>0 then
              begin
                writeln(x,' co trong mang'):
                writeln(x,' xuat hien trong mang ',dem,' lan);
              end;
        else writeln(x,' khong co trong mang');
        readln;
end.