Bài 1:

uses crt;
var n,i:integer;
    a:array[0..100] of integer;
BEGIN
        clrscr;
        {Nhap MANG}
        write('Nhap n:'); readln(n);
        for i:=1 to n do
        begin
                write('Nhap a[',i,']');
                readln(a[i]);
        end;
        {Hien thi gia tri mang}
        writeln('Gia tri cua mang:');
        for i:=1 to n do write(a[i],' ');
        readln
END.

Bài 2:

uses crt;
var n,i,s:integer;
    a:array[0..100] of integer;
BEGIN
        clrscr;
        {Nhap MANG}
        write('Nhap n:'); readln(n);
        for i:=1 to n do
        begin
                write('Nhap a[',i,']');
                readln(a[i]);
        end;
        {Tinh TONG}
        s:=a[1];
        for i:=2 to n do s:=s+a[i];
        {Ghi KET QUA}
        write('Tong cua day so la:',s);
        readln
END.

Bài 3:

uses crt;
var n,i,k:integer;
    a:array[0..100] of integer;
BEGIN
        clrscr;
        {Nhap MANG va K}
        write('Nhap n:'); readln(n);
        write('Nhap K:'); readln(k);
        for i:=1 to n do
        begin
                write('Nhap a[',i,']');
                readln(a[i]);
        end;
        {Tim cac phan tu co gia tri bang K}
        write('Vi tri cac phan tu co gia tri bang K la:');
        for i:=2 to n do
                if a[i]=k then write(i,' ');
        readln
END.

Chúc bạn học tốt

Bài 1:

programbai1;

uses crt;

var A:array[1..10000] of integer;

      n,i:integer;

begin

clrscr;

write('Nhap so luong phan tu n: ');   readln(n);

writeln('NHAP GIA TRI TUNG PHAN TU CUA MANG');

for i:=1 to n do

 begin

  write('Phan tu thu ',i,': ');

  readln(A[i]);

 end;

write('mang vua nhap la: ');

for i:=1 to n d

 write(A[i],' ');

readln

end.

Bài 2:

program bai2;

var A:array[1..10000] of integer;

      n,i:integer;

      t:longint;

begin

clrscr;

write('Nhap so luong phan tu n: ');   readln(n);

writeln('NHAP GIA TRI TUNG PHAN TU CUA MANG');

t:=0;

for i:=1 to n do

 begin

  write('Phan tu thu ',i,': ');

  readln(A[i]);

  t:=t+A[i];

 end;

write('Tong cac phan tu cua mang la: ',t);

readln

end.

bài 3:

program bai3;

var A:array[1..10000] of integer;

      n,i,d:integer;

begin

clrscr;

write('Nhap so luong phan tu n: ');   readln(n);

writeln('NHAP GIA TRI TUNG PHAN TU CUA MANG');

for i:=1 to n do

 begin

  write('Phan tu thu ',i,': ');

  readln(A[i]);

 end;

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

d:=0;

for i:=1 to n do

 if A[i]=k then d:=d+1;

write('Co ',d,' phan tu trong mang bang ',k);

readln

end.

Chúc bạn học tốt nha!

Cho mình ctlhn nha bạn.