Заполнить массив случайными числами на интервале от -10 до +15. распечатать исходный массив. подсчитать количество положительных и отрицательных. поменять знак у каждого элемента массива. распечатать. посчитать количество отрицательных и положительных

Uses crt; const n=10; var a: array [1..n] of integer;     i,p,o: integer; begin       p: =0;       o: =0;       for i: =1 to   n do       begin           a[i]: =random(27)-10;           write(a[i],' ');           if a[i]> 0 then inc(p);           if a[i]< 0 then inc(o);       end;       writeln;       writeln('положительных: ',p); p: =0;       writeln('отрицательных: ',o); o: =0;       for i: =1 to n do       begin           a[i]: =-a[i];           write(a[i],' ');           if a[i]> 0 then inc(p);           if a[i]< 0 then inc(o);       end;         writeln;       writeln('положительных: ',p);       writeln('отрицательных: ',o); end.

1.найти разность показаний счетчика на конец месяца и на начало месяца.

2.умножить на цену одного квт/часа

random это  функция  возвращающая случайные числа от 1 до указанного диапазона, но отрицательных чисел тут нет, так что воспользуемся приемом:

a: = random(101)-50;       {числа от -50 до 50}

b: = random(101)-200;     {от -100 до 100}

а теперь выведи на экран все положительные, а затем отрицательные элементы - проверяй на больше/меньше нуля!