Для заданного одномерного массива целых чисел выполнить последовательно следующие опции: найти количество и сумму чисел имеющих свойство а; переписать в другой массив числа, имеющий свойство б; все числа, имеющие свойства в, заменить заданным числом z1; упорядочить массив по не убыванию; удалить из него все числа, имеющие свойство г; вставить в нужное место массива заданное число z2, если его там нет. а) меньше своих соседей б) положительно в) наименьшее г) не кратно заданным p и q

// pascalabc.net 3.2, сборка 1427 от 24.04.2017 // внимание! если программа не работает, обновите версию! begin   var m: =arrrandom(readinteger('n=',20); m.println;   (var k,var s): =(0,0);   for var i: =1 to m.length-2 do       if (m[i]< m[i-1]) and (m[i]< m[i+1]) then (k,s): =(k+1,s+m[i]);   writeln('свойство а: кол-во=',k,', сумма=',s);   var mb: =m.where(x-> x< 0).toarray;   write('свойство б: '); mb.println;   var z: =readinteger('z1=');   var mmin: =m.min;   m.transform(x-> x=mmin? z: x); writeln('свойство b: '); m.println;   m.sort; writeln(' по неубыванию: '); m.println;   var p,q: integer; write('введите p q: '); read(p,q);   m: =m.where(x-> (x mod p< > 0) and (x mod q< > ;   writeln('свойство г: '); m.println;   z: =readinteger('z2=');   p: =m.findindex(x-> x> =z);   if m[p]< > z then m: =(m[: p]+arr(z)+m[p: ]).toarray;   writeln('после попытки вставки: '); m.println end. пример n= 17 3 5 -5 12 -15 6 11 -7 -13 -3 -17 8 -7 8 -5 -15 -7 свойство а: кол-во=6, сумма=-72 свойство б: -5 -15 -7 -13 -3 -17 -7 -5 -15 -7 z1= -33 свойство b: 3 5 -5 12 -15 6 11 -7 -13 -3 -33 8 -7 8 -5 -15 -7 по неубыванию: -33 -15 -15 -13 -7 -7 -7 -5 -5 -3 3 5 6 8 8 11 12 введите p q: 3 7 свойство г: -13 -5 -5 5 8 8 11 z2= 0 после попытки вставки: -13 -5 -5 0 5 8 8 11

program vvl;

var x: integer;

      v: real;

begin

write('x=');

readln (x);

v: = abs(a)-2;

writeln ('v='; v: 2: 1);

end.

2.5 кбайт = 2560 -байт = 20480 бит

20480 : 2560  = 8

ответ: 8 минут.

вроде както так..