viết thuật toán nhập vào số nguyên N và dãy A gồm N số nguyên :a1,…,an. Đếm xem có bao nhiêu số âm,bao nhiêu số dương trong dãy ? Mik đag thi nên cầ

0 bình luận về “viết thuật toán nhập vào số nguyên N và dãy A gồm N số nguyên :a1,…,an. Đếm xem có bao nhiêu số âm,bao nhiêu số dương trong dãy ? Mik đag thi nên cầ”

1. uses crt;
   var n,i,c,l:longint; a:array[1..10000]of longint;
   begin
   clrscr;
      write(‘n=’);readln(n);
      for i:=1 to n do
         begin
            write(‘a[‘,i,’,]=’);readln(A[i]);
            if a[i] mod 2=0 then inc(c) else inc(l);
         end;
      writeln(‘Co ‘,c,’ so chan’);
      writeln(‘Co ‘,l,’ so le’);
   readln
   end.

   Bình luận

2. Program NN;
   Uses crt;
   Var A: array[1..10000] of longint;
       n,i,da,dd: longint;
   Begin
           Clrscr;
           Write(‘Nhap n: ‘); Readln(n);
           da:=0; dd:=0;
           For i:=1 to n do
           Begin
                   Read(A[i]);
                   If A[i]<0 then inc(da);
                   If A[i]>0 then inc(dd);
           End;
           Write(‘Co ‘,da,’ so am va ‘,dd,’ so duong’);
           Readln
   End.

   Bình luận