Question

Cho mảng nguyên A có n phần tử (n<=250);

a. In mảng theo hàng (Cột)

b. Đếm xem trong mảng có bao nhiêu số nguyên âm

c. Đếm xem trong mảng có bao nhiêu số nguyên dương

d. Tính tổng các số nguyên âm trong mảng

e. Tính tổng các số nguyên dương trong mảng

Answer 1

Program hotrotinhoc_hoc24;

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

i,t,t1,d,d1,n: integer;

begin

write('Nhap so phan tu : '); readln(n);

d:=0; d1:=0; t:=0; t1:=0;

for i:=1 to n do

begin

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

if a[i]<0 then

begin

inc(d);

t:=t+a[i];

end;

if a[i]>0 then

begin

inc(d1);

t1:=t1+a[i];

end;

end;

for i:=1 to n do writeln(a[i]);

writeln('Trong mang co ',d,' so nguyen am');

writeln('Trong mang co ',d1,' so nguyen duong');

writeln('Tong cac so nguyen am trong mang la : ',t);

write('Tong cac so nguyen duong trong mang la : ',t);

readln

end.