Câu 1:

program Cau_1;

uses crt;

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

      N,i,max: integer;

Begin

         clrscr;

         write('Nhap so phan tu: '); readln(N);

         max:=1;

         for i:=1 to N do

         begin

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

                  if max<A[i] then max:=A[i];

         end;

         write('Gia tri lon nhat: ',max);

         readln

End.

Câu 2:

program Cau_2;

uses crt;

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

      N,i,d: integer;

Begin

         clrscr;

         write('Nhap so phan tu: '); readln(N);

         for i:=1 to N do

         begin

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

                  if A[i] mod 2=0 then d:=d+1;;

         end;

         write('Co ',d,' phan tu chan');

         readln

End.

• program boi_cua_3;

  uses crt;

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

  n,i:byte;

  min:integer;

  begin

  clrscr;

  write('nhap so luong phan tu cua mang: ');

  readln(n);

  for i:= 1 to n do

  begin

  write('nhap phan tu thu [',i,']= ');

  readln(a[i]);

  end;

  min:=a[1];

  for i:= 1 to n do

  if min > a[i] then min:=a[i];

  writeln('gia tri nho nhat cua day la: ',min);

  readln

  end.