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

// pascalabc.net 3.3.5, сборка 1636 от 10.03.2018 // внимание! если программа не работает, обновите версию! begin   var a: =arrrandom(10,-20,20); a.println;   var (min,max): =(a.min,a.max);   write('номера минимальных элементов: ');   a.indexesof(t-> t=min).select(t-> t+1).println;   write('номера максимальных элементов: ');   a.indexesof(t-> t=max).select(t-> t+1).println;   a.transform(t-> t> 0? min: t); a.println end. пример 6 -2 16 -1 -20 2 -9 0 16 15 номера минимальных элементов: 5 номера максимальных элементов: 3 9 -20 -2 -20 -1 -20 -20 -9 0 -20 -20 begin   // создание массива   var n: =readinteger('n=');   var a: =new integer[2*n];   for var i: =0 to n-1 do       (a[i],a[i+n]): =(i+1,5*(sqr(i+1)+3));   a.println;   // собственно решение   for var i: =0 to n-1 do       writeln(a[i]: 2,a[i+n]: 8) end. пример n= 7 1 2 3 4 5 6 7 20 35 60 95 140 195 260   1          20   2          35   3          60   4          95   5        140   6        195   7        260

ответ смотреть на скриншоте: