Question

Сформировать одномерный массив, состоящий из N элементов, с помощью генератора случайных чисел. Диапазон [-10;15]. Найти количество отрицательных элементов, положительных элементов, нулей. Вывести сообщение

Answer 1

Ответ:

var

 n: array[-10..15] of integer;

 i,a,b,c: integer;

begin

 randomize;

 for i:=-10 to 15 do

 begin

  n[i]:=random(-10,15);

 end;

 for i:=-10 to 15 do

 begin

   if n[i] > 0 then

     a:= a + 1

   else

     begin

       if n[i] < 0 then

         b:= b+1

       else

         c:= c + 1

     end

 end;

 writeln('Количество положительных чисел: ',a);

 writeln('Количество отрицательных чисел: ',b);

 writeln('Количество нулей: ',c);

end.