1. 

   Николай_21Day New Member

   Напишите в виде программы для паскаля. В массиве А(5) посчитать количество положительных и отрицательныхэлементов

    

   Николай_21Day, 1 фев 2010

   #1
2. 

   ign@t New Member

   var
   a: array[1..5] of integer;
   p,ot,i:integer;
   begin
   p:=0;
   ot:=0;
   for i:=1 to 5 do
   readln(a);
   for i:=1 to 5 do begin
   if a>0 then
   p:=p+1
   else
   ot:=ot+1;
   end;
   writeln('polozitelnich=', p, ' otrizatelnich=', ot);
   end.
   

    

   ign@t, 1 фев 2010

   #2

Ваше имя или e-mail:

Пароль:

Забыли пароль?

Запомнить меня