Nhập dữ liệu cho mảng 1 chiều có n phần tử • Đưa ra giá trị min của mảng trên (4.5) • Tính tổng các phần tư thỏa mãn điều kiện là số chẵn trong mảng (

uses crt;
var n,i,j,min,tong,dem:longint; a:array[1..1000000]of longint;
begin
clrscr;
   write(‘n=’);readln(n);
   min:=high(longint);
   for i:=1 to n do
      begin
         write(‘Phan tu thu ‘,i,’ cua mang: ‘);readln(a[i]);
         if a[i]<min then min:=a[i];
         if a[i] mod 2=0 then inc(tong,a[i]);
         j:=2; while(a[i]>1)and(a[i] mod j<>0)do inc(j);
         if j=a[i] then inc(dem);
      end;
   writeln(‘Gia tri min: ‘,min);
   writeln(‘Tong cac so chan trong mang: ‘,tong);
   writeln(‘So luong so nguyen to trong mang: ‘,dem);
readln
end.

/////////////////////////////

Test: