Câu 1:

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

      n,i:integer;

Câu 2:

program sothu5;

uses crt;

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

      i:integer;

begin

clrscr;

for i:=1 to 10 do

     begin

          write('So thu ',i,': ');     readln(A[i]);

     end;

write('So nhap thu 5 la: ',A[5]);

readln

end.

Câu 3:

program baigiai;

uses crt;

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

      n,i,t:integer;

begin

clrscr;

write('Nhap so luong phan tu cua mang(<=15): ');   readln(n);

t:=0;

for i:=1 to n do

     begin

           write('A[',i,']= ');     readln(A[i]);

           if A[i] mod 3=0 then t:=t+A[i];

     end;

write('a) Mang da nhap la: ');

for i:=1 to n do

      write(A[i],' ');

writeln;

writeln('b) Tong cua phan tu cua mang chia het cho 3 la: ',t);

writeln('c) Cac so chan o vi tri le trong day la: ');

for i:=1 to n do

      if (i mod 2=1) and (A[i] mod 2=0) then write(A[i],' ');

readln

end.

Xin hay nhất ạ

Câu 1: n:integer;

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

Câu 2: 

uses crt;
var i:longint; a:array[1..10]of longint;
begin
clrscr;
   writeln('Nhap day so');
   for i:=1 to 10 do
      begin
         write('a[',i,']=');readln(a[i]);
      end;
   writeln('So nhap thu 5: ',a[5]);
readln
end.

Câu 3:

uses crt;
var i,n,t:longint; a:array[1..10]of longint;
begin
clrscr;
   write('n=');readln(n);
   writeln('Nhap day so');
   for i:=1 to n do
      begin
         write('a[',i,']=');readln(a[i]);
      end;
   write('a) ');
   for i:=1 to n do write(a[i],' ');
   for i:=1 to n do if a[i] mod 3=0 then inc(t,a[i]);  writeln;
   writeln('b) Tong: ',t);
   write('c) ');
   for i:=1 to n do if (a[i] mod 2=0)and(i mod 2=1) then write(a[i],' ');
readln
end.