Question

Tạo mảng B gồm N (N<=250) số nguyên, mỗi số có giá trị tuyệt đối không quá 1000. Hãy đưa ra số các số nguyên dương và số các số âm trong mảng. 

Answer 1

program tim_so_nguyen_am;

uses crt;

var n,i:integer;

b:array[1..1000]of integer;

begin

clrscr;

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

repeat

for i:=1 to n do

begin

write('nhap phan tu b[',i,']:');readln(b[i]);

end;

if abs(a[i]>1000)then write('ban hay nhap lai:');

until abs(b[i]<=1000);

writeln('cac phan tu nguyen duong cua mang la:');

for i:=1 to n do

if b[i]>=0 then write(b[i]:5);

writeln;

writeln('cac phan tu nguyen am cua mang la:');

readln;

end.

for i:=1 to n do

if b[i]<0 then write(b[i]:5);

Answer 2

uses crt;

var b:array[1..25]of integer;

i,n,dem1,dem2:integer;

begin

clrscr;

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

for i:=1 to n do 

begin

write('B[',i,']='); readln(b[i]);

end;

dem1:=0;

dem2:=0;

for i:=1 to n do

 begin

if b[i]>0 then inc(dem1);

if b[i]<0 then inc(dem2);

end;

writeln('So cac so nguyen duong la: ',dem1);

writeln('So cac so nguyen am la: ',dem2);

readln;

end.