Question

*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.

Answer 1

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.

Answer 2

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.