Bài 1: Cho các giá trị a1,a2,a3,-.aN (số nguyên khác không )N phần tử. Đếm và đưa ra xem có bao nhiêu giá trị âm, duơng

0 bình luận về “Bài 1: Cho các giá trị a1,a2,a3,-.aN (số nguyên khác không )N phần tử. Đếm và đưa ra xem có bao nhiêu giá trị âm, duơng”

1. Uses crt;
   Var t,i,n:longint; a:array[1..1000000]of longint;
   Begin
   Clrscr;
      write(‘N=’);readln(n);
      For i:=1 to n do
         begin
            write(‘a[‘,i,’]=’);readln(a[i]);
            if a[i]<=0 then inc(t);
         end;  writeln(‘Co ‘,t,’ so am’);
         writeln(‘Co ‘,n-t,’ so duong’);
   Readln;
   End.

   Bình luận