Mảng A gồm N phần tử thuộc kiểu nguyên (N

program cau_a;

uses crt;

type mang=array[1..100]of integer;

var a:mang;

i,n:integer;

s:longint;

{------------------chuong-trinh-con-nhap--------------}

procedure nhap(var b:mang);

begin

write('nhap n='); readln(n);

for i:=1 to n do

begin

write('a[',i,']='); readln(b[i]);

end;

end;

{---------chuong-trinh-con-tim-min--------------}

function min(var c:mang):integer;

var j,m,nn:integer;

begin

nn:=c[1];

for j:=1 to m do

if nn<c[j] then nn:=c[j];

write('so nho nhat trong mang A la: ',nn);

min:=nn;

end;

{-----------------chuong-trinh-chinh---------------------}

begin

clrscr;

nhap(a);

min(a);

readln;

end.

câu b:

program cau_b;

uses crt;

type mang=array[1..100]of integer;

var a:mang;

i,n:integer;

s:longint;

{------------------chuong-trinh-con-nhap--------------}

procedure nhap(var b:mang);

begin

write('nhap n='); readln(n);

for i:=1 to n do

begin

write('a[',i,']='); readln(b[i]);

end;

end;

{---------chuong-trinh-con-tinh-tong-cac-phan-tu-la-so-chan--------}

function tong(var c:mang):integer;

begin

s:=0;

for i:=1 to n do

if c[i] mod 2=0 then s:=s+c[i];

tong:=s;

end;

{-----------------chuong-trinh-chinh---------------------}

begin

clrscr;

nhap(a);

s:=tong(a);

write(s);

readln;

end.