Сна pascal. массивы. дана последовательность действительных чисел. поменяйте местами первый наибольший элемент с последним наименьшим элементом

242

425

Посмотреть ответы 2

Ответы на вопрос:

katy3105

Информатика

4,7(63 оценок)

// pascalabc.net 3.3, сборка 1583 от 25.11.2017 // внимание! если программа не работает, обновите версию! begin var a: =seqrandom(readinteger('n=',99).select(t-> t/10).toarray; a.println; var (imax,imin): =(a.indexmax,a.lastindexmin); swap(a[imin],a[imax]); a.println end. пример n= 15 -4.3 -5.6 7.2 -5.3 -7.7 9.3 1.4 0.3 -4.7 6.3 5.7 7.5 -8.6 6.9 -2.5 -4.3 -5.6 7.2 -5.3 -7.7 -8.6 1.4 0.3 -4.7 6.3 5.7 7.5 9.3 6.9 -2.5