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
BT Thêm

Cho mảng A gồm N phần tử thuộc kiểu nguyên (N<=50).viết chương trình con thực hiện các yêu cầu sau

a, viết thủ tục nhập giá trị cho mảng A từ bàn phím

b, viết thủ tục in ra màn hình các phần tử là số chẵn trong mảng A

Nguyễn Lê Phước Thịnh
19 tháng 6 2020 lúc 20:56

a)

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

procedure nhap(var a:mang);

var n,i:integer;

begin

for i:=1 to n do

begin

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

end;

end;

b) procedure xuat(var a:mang);

var i,n:integer;

begin

for i:=1 to n do

if a[i] mod 2=0 then write(a[i]:4);

end;


Các câu hỏi tương tự
Đạt Tạ
Xem chi tiết
Trần Thị Hương
Xem chi tiết
Vy Tường
Xem chi tiết
M Ạ C H N H A
Xem chi tiết
Hiên Nguyễn
Xem chi tiết
Vy Tường
Xem chi tiết
Veres Pro
Xem chi tiết
Trường
Xem chi tiết
 Nguyễn Xuân  Hậu
Xem chi tiết