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

tarantula90117.11.2008 - 17:53
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

Etiket:

Bu bilgi size yardimci oldu mu?

EvetHayır
Klavyeden girilen 10 adet sayının pozitif ve negatif sayılarını bulan program.
Klavyeden girilen 10 adet sayının pozitif ve negatif sayılarını bulan program.
(Ortalama: 5 üzerinden 2.5 - 2 Oy)
2