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 Văn Vương

Mọi người giúp em với:

Đề :1 Viết thủ thục nhập dãy số nguyên gồm N phần tử (N <= 100)

Đề:2 Viết thủ tục tính tổng các phần tử vừa nhập

Đề:4 Viết phương trình chính gọi 2 thủ tục trên để thực hiện.

AI niết câu nào giả hộ em với =))

Nguyễn Lê Phước Thịnh
18 tháng 12 2019 lúc 11:57

uses crt;
var n:integer;
{-----------------------------------------------------}
procedure nhap(var x:integer);
var a:array[1..100]of integer;
i:integer;
begin
write('nhap chieu dai cua day='); readln(x);
for i:=1 to x do
begin
write('a[',i,']='); readln(a[i]);
end;
end;
{-----------------------thu-tuc-tinh-tong-----------------}
procedure tong(var m:integer);
var b:array[1..100]of integer;
j,t:integer;
begin
t:=0;
for j:=1 to m do
t:=t+b[j];
writeln('tong la: ',t);
end;
{------------------------chuong-trinh-chinh---------------------}
begin
clrscr;
nhap(n);
tong(n);
readln;
end.

Khách vãng lai đã xóa

Các câu hỏi tương tự
BT Thêm
Xem chi tiết
Kiều My
Xem chi tiết
Đạt Tạ
Xem chi tiết
M Ạ C H N H A
Xem chi tiết
Trần Thị Hương
Xem chi tiết
Veres Pro
Xem chi tiết
Vy Tường
Xem chi tiết
Vy Tường
Xem chi tiết
Phương Thị
Xem chi tiết