Question

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.

Answer 1

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.