Bài 18: Ví dụ về cách viết và sử dụng chương trình con

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Nguyễn Lê Phước Thịnh
19 tháng 4 2021 lúc 19:11

uses crt;

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

i,n,max,min,dem,k,t1,t2,tam,j:integer;

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

procedure NHAP_mang;

begin

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

for i:=1 to n do 

 begin

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

end;

end;

{--------------chuong-trinh-con-xuat-mang---------------------}

procedure hien_mang;

begin

for i:=1 to n do

  write(a[i]:4);

end;

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

procedure tim_min;

begin

min:=a[1];

for i:=1 to n do 

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

writeln('So nho nhat la: ',min);

end;

{--------------chuong-trinh-con-tim-max-----------------}

procedure tim_max;

begin

max:=a[1];

for i:=1 to n do 

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

writeln('So lon nhat la: ',max);

end;

{---------------------chuong-trinh-con-dem-so-k----------------------}

procedure dem_k;

begin

write('Nhap k='); readln(k);

dem:=0;

for i:=1 to n do 

  if a[i]=k then inc(dem);

writeln('So phan tu bang ',k,' la: ',dem);

end;

{------------------chuong-trinh-con-tinh-tong-so-chan-------------------------}

procedure tong_chan;

begin

t1:=0;

for i:=1 to n do 

  if a[i] mod 2=0 then t1:=t1+a[i];

writeln(t1);

end;

{------------------chuong-trinh-con-tinh-tong-so-le-----------------------}

procedure tong_le;

begin

t2:=0;

for i:=1 to n do 

  if a[i] mod 2<>0 then t2:=t2+a[i];

writeln(t2);

end;

{-------------------chuong-trinh-con-sap-xep-mang-khong-giam----------------}

procedure sap_xep;

begin

for i:=1 to n-1 do 

  for j:=i+1 to n do 

if a[i]>a[j] then 

begin

tam:=a[i];

a[i]:=a[j];

a[j]:=tam;

end;

for i:=1 to n do 

  write(a[i]:4);

end;

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

begin

clrscr;

nhap_mang;

hien_mang;

tim_min;

tim_max;

dem_k;

tong_chan;

tong_le;

sap_xep;

readln;

end.


Các câu hỏi tương tự
Đoàn Vĩ Khang
Xem chi tiết
Ngọc Hiền
Xem chi tiết
Tiền Ho
Xem chi tiết
Văn Huy
Xem chi tiết
Nguyễn Thảo Nguyên
Xem chi tiết
Vy Tường
Xem chi tiết