Bài 11: Kiểu mảng

HT

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.

NT
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ự
BD
Xem chi tiết
NT
Xem chi tiết
PT
Xem chi tiết
H24
Xem chi tiết
TT
Xem chi tiết
H24
Xem chi tiết
KN
Xem chi tiết
KM
Xem chi tiết
BT
Xem chi tiết