So sánh số lượng nguyên âm và nguyên dương có trong dãy (pascal)

0 bình luận về “So sánh số lượng nguyên âm và nguyên dương có trong dãy (pascal)”

1. program sosanh;

   uses crt;

   var A:array[1..10000] of integer;

         n,i,da,dd:integer;

   begin

   clrscr;

   write(‘Nhap so luong phan tu cua day’);   readln(n);

   writeln(‘NHAP GIA TRI TUNG PHAN TU CUA DAY’);

   da:=0; dd:=0;

   for i:=1 to n do

    begin

     write(‘GIa tri cua phan tu thu ‘,i,’: ‘);

     readln(A[i]);

     if A[i]<0 then da:=da+1;

     if A[i]>0 then dd:=dd+1;

    end;

   if da>dd then write(‘So luong nguyen am lon hon so luong nguyen duong’)

    else if da<dd then write(‘So luong nguyen duong lon hon so luong nguyen am)

     else write(‘So luong nguyen am bang so luong nguyen duong’);

   readln

   end.

   Bình luận

2. uses crt;
   var i,n,d:integer;
   a:array[0..200] of integer;
   BEGIN
           clrscr;
           write(‘Nhap n:’); readln(n);
           for i:=1 to n do
           begin
                   write(‘Nhap a[‘,i,’]’);
                   readln(a[i]);
           end;
           d:=0;
           for i:=1 to n do
                   if a[i]>0 then inc(d)
                   else if a[i]<0 then dec(d);
           if d>0 then write(‘So luong so duong > so luong so am.’)
           else if d<0 then write(‘So luong so duong < so luong so am.’)
           else write(‘So luong so duong = so luong so am.’);
           readln
   END.

   Chúc bạn học tốt.

   Cho mình xin ctlhn.

   Bình luận