Дан массив размера n. в массиве могут быть отрицательные значения random(-10, 50)перед каждым положительным элементом массива вставить элемент с нулевым знавением. вывести количество элементов нового массива и сам массив. внешний вид программы произвольный

Персональный компьютер,  пк,  пэвм  (персональная электронно-вычислительная машина)  — настольная  микро-эвм, имеющая эксплуатационные характеристики  бытового прибора  и универсальные функциональные возможности программное обеспечение –  это  набор команд, работой компьютера. безпрограммного обеспечениякомпьютер не сможет выполнять , которые мы обычно связываем с компьютерами. аппаратное обеспечение  — комплекс электронных, электрических и механических устройств, входящих в состав системы или сети.  аппаратное обеспечение  включает: компьютеры и логические устройства; внешние устройства и диагностическую аппаратуру; энергетическое оборудование

1. современное решение // pascalabc.net 3.2, сборка 1437 от 03.05.2017 // внимание! если программа не работает, обновите версию! begin   var a: =arrrandom(readinteger('n=',50); a.println;   var min: =a.min;   a.transform(x-> x< 0? x*min: x); a.println end. пример n= 15 -34 7 0 -48 4 42 35 14 -47 6 -29 43 46 40 -18 1632 7 0 2304 4 42 35 14 2256 6 1392 43 46 40 864 2. популярное до сих пор в школах решение на turbopascal 7.01 (1983г.) uses crt; const   nn=100; var   i,n,min: integer;   a: array[1..nn] of integer; begin   clrscr;   randomize;   write('n='); read(n);   min: =100;   for i: =1 to n do begin       a[i]: =random(101)-50;       write(a[i],' ');       if a[i]< min then min: =a[i]       end;   writeln;   for i: =1 to n do       if a[i]< 0 then a[i]: =a[i]*min;   for i: =1 to n do       write(a[i],' ');   writeln;   readkey end.