Hãy viết chương trình nhập vào n phần tử, đếm xem có bao nhiêu số âm và bao nhiêu số dương trong n phần tử đó
giúp mình nhé, vote cho 5*
Hãy viết chương trình nhập vào n phần tử, đếm xem có bao nhiêu số âm và bao nhiêu số dương trong n phần tử đó
giúp mình nhé, vote cho 5*
program oken;
uses crt;
var a,i,n,dem,dem2:integer;
begin
clrscr;
write(‘Nhap so luong so can nhap: ‘); readln(n);
dem:=0; dem2:=0;
for i:=1 to n do
begin
write(‘So ‘,i,’: ‘);
readln(a);
if a>0 then
dem:=dem+1
else
if a<0 then
dem2:=dem2+1;
end;
if dem<>0 then
writeln(‘Co ‘,dem,’ so nguyen duong trong day.’)
else
writeln(‘Khong co so nguyen duong trong day.’);
if dem2<>0 then
writeln(‘Co ‘,dem2,’ so nguyen am trong day.’)
else
writeln(‘Khong co so nguyen am trong day.’);
readln;
end.
Program BTH;
uses crt;
var n,i,dem1,dem2,k:longint;
Begin
clrscr;
write(‘Nhap n: ‘);readln(n);
For i:=1 to n do
Begin
write(‘Nhap so thu ‘,i,’ : ‘);readln(k);
If k>0 then dem1:=dem1+1
else
dem2:=dem2+1;
end;
Writeln(‘So luong so am co trong day la: ‘,dem2);
Writeln(‘So luong so duong co trong day la: ‘,dem1);
readln;
end.