Хто напиши 3 програми скину 30 грн на приват24

// pascalabc.net 3.2, сборка 1387 от 20.02.2017 // внимание! если программа не работает, обновите версию! begin   var d: =arrrandom(readinteger('n=',78); d.println;   writeln('сумма отрицательных равна ',d.where(x-> x< 0).sum);   writeln('сумма положительных равна ',d.where(x-> x> 0).sum);   writeln('количество нулевых равно  ',d.where(x-> x=0).count); end. пример n= 17 40 6 11 21 0 42 6 25 55 -1 54 21 49 6 -5 -12 49 сумма отрицательных равна -18 сумма положительных равна 385 количество нулевых равно  1

//pascalabc.net 3.2 {1} begin var a: =readarrinteger('вводите: ', readinteger('n =')); write ('ср. арифметическое: ', a.average); end. {2} begin var a: =readarrinteger('водите: ', readinteger('n =')); var sum: =0; for var i: =0 to length(a)-1 do if i.isodd then sum+=a[i]; write ('сумма: ', sum); end. {3} begin var a: =readarrinteger('вводите: ', readinteger('кол-во элементов: ')); var otr: =0; var pol: =0; for var i: =0 to length(a)-1 do if a[i]< 0 then otr+=1 else pol+=1; write('массив: '); a.println; if otr=pol then write ('отрицательных и положительных элементов равное кол-во') else  if otr> pol then write('отрицательных больше на ', otr-pol) else write ('положительных больше на ', pol-otr); end.