Bài 12: Kiểu xâu

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Thanh Nhi Phạm

Viết chương trình nhập từ bàn phím số nguyên dương N,N <=100 và dãy A gồm N số nguyên A1,A2,...An. xuất ra màng hình tổng các số nguyên trong dãy A theo yêu cầu sau

1 : viết các thủ tục nhập / xuất mảng A

2 : Viết các hàm tính tổng các số nguyên tromg dãu A, tổng số chẵn, tổng số lẻ trong dãy A

Nguyễn Lê Phước Thịnh
23 tháng 4 2021 lúc 20:12

Mình chỉ viết chương trình chính thôi, còn chương trình con bạn tự viết nhé

uses crt;

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

i,n,t,t1,t2:integer;

begin

clrscr;

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

for i:=1 to n do 

 begin

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

edn;

t:=0;

for i:=1 to n do 

 t:=t+a[i];

writeln(t);

readln;

end.


Các câu hỏi tương tự
Phượng Hà Thị
Xem chi tiết
Nguyễn khánh thành
Xem chi tiết
pro hỏi baififififififi
Xem chi tiết
Harunastu
Xem chi tiết
nguyễn an phát
Xem chi tiết
Tuệ Lâm
Xem chi tiết
Khánh Mỹ
Xem chi tiết
le thiện
Xem chi tiết
giàng văn thương
Xem chi tiết