viết chương trình nhập vào 1 mảng n số thực in ra số lượng của các số âm, các số dương của dãy số giúp mình với mình đang cần rất gấp, đúng mình sẽ vo

0 bình luận về “viết chương trình nhập vào 1 mảng n số thực in ra số lượng của các số âm, các số dương của dãy số giúp mình với mình đang cần rất gấp, đúng mình sẽ vo”

1. program ct;

   uses crt;

   var i,n:integer;

   A:array[1..100] of real;

   begin

   clrscr;

   write(‘nhap n:=’);readln(n);

   for i:=1 to n do

   begin

   write(‘nhap mang A[‘,i,’]:=’);readln(A[i]);

   end;

   for i:=1 to n do

       if A[i]<0 then writeln(‘cac so am la:’,A[i]);

   for i:=1 to n do

      if A[i]>0 then writeln(‘cac so duong la:’,A[i]);

   readln

   end.

   Bình luận