*giải gúp mình vs:
bt: Mảng A gồm N phần tử thuộc kiểu nguyên (N<=50)? Viết chương trình có sử dụng CTC thực hiện các yêu cầu sau:
a>
- Viết thủ tụp nhập giá trị cho mảng A từ bàn phím.
-Viết hàm tìm giá trị nhỏ nhất trong mảng A.
b>
- Viết thủ tục nhập giá trị cho mảng A từ bàn Phím
- Viết hàm tính tổng các phần tử là số chẳn trong mảng A.
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.