Bài 11: Kiểu mảng

Huỳnh Thanh

Em cần gấp lắm, mai em thi rồi.

Viết chương trình nhập vào một mảng gồm n số nguyên rồi thực hiện việc sau:

    1.Tính tổng các phần tử của mảng.

     2.Tính tổng các phần tử giá trị (+) của mảng.

     3.Tính tổng các phần tử giá trị (-) của mảng.

     4.Tính trung bình cộng các giá trị trong mảng.

Nguyễn Lê Phước Thịnh
15 tháng 5 2021 lúc 10:41

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]);

end;

t:=0;

for i:=1 to n do 

  t:=t+a[i];

t1:=0;

t2:=0;

for i:=1 to n do 

begin

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

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

end;

writeln('Tong cac phan tu la: ',t);

writeln('Tong cac so duong la: ',t1);

writeln('Tong cac so am la: ',t2);

writeln('Trung binh cong cua day la: ',t/n:4:2);

readln;

end.

Bình luận (0)

Các câu hỏi tương tự
Bui Trong Diep
Xem chi tiết
Nguyễn tiên
Xem chi tiết
Pinky Bảo Trân
Xem chi tiết
Nhân
Xem chi tiết
Thái Thiên Thành
Xem chi tiết
Yuki
Xem chi tiết
Khang nguyễn
Xem chi tiết
Khánh Mỹ
Xem chi tiết
Bé Thúy
Xem chi tiết