Klavyeden girilen 10 adet sayının pozitif ve negatif sayılarını bulan program.

uses crt;
   var
   a,i,negatif,pozitif:integer;
   begin
   for i:=1 to 10 do begin
   write(‘sayıyı gir:’);readln(a);
   if (a>0) then
   pozitif:=pozitif+1
   else
   if (0>a) then
   negatif:=negatif+1;
   end;
   writeln(‘pozitif sayılar:’,pozitif);
   writeln(‘negatif sayılaar:’,negatif);
   readln;

   end.



Linkback: https://www.buyuknet.com/klavyeden-girilen-10-adet-sayinin-pozitif-ve-negatif-sayilarini-bulan-program-t8601.0.html