Программа на Паскаль. Дан массив, состоящий из 10-ти чисел в диапазоне от -10 до +10 (элементы массива формируются случайным образом). Вывести сформированный массив на экран и затем заменить все отрицательные числа 0, а положительные 1.

const

 n=10;

var

 a:array [1..n] of integer;

 i:integer;

begin

 for i:=1 to n do

   begin

     a[i]:=random(21)-10;

     write(a[i]:4);

     if a[i]<0 then  

       a[i]:=0

         else

           if a[i]>0 then

             a[i]:=1;      

   end;

 writeln;

 for i:=1 to n do

   write(a[i]:4);

end.