30.Заменить отрицательные элементы линейного массива их модулями, не пользуясь стандартной функцией вычисления модуля. Подсчитать количество произведенных замен.

Решение

program lab30;

type mas=array[1..100] of integer;

var i,n,k:integer;

a:mas;

begin

writeln('Vvedite kolvo elementov massiva:');

readln(n);

for i:=1 to n do

begin

     if random(5) mod 2 = 0 then

     a[i]:=random(100)

     else

     a[i]:=(-1)*random(100);

     write(a[i],' ');

end;

k:=0;

writeln;

for i:=1 to n do

begin

     if a[i]<0 then

     begin

          a[i]:=(-1)*a[i];

          k:=k+1;

     end;

     write(a[i],' ');

end;

writeln;

writeln('kolvo otricatelnih chisel: ', k);

end.