Задание:
Дан массив целых чисел. Поменять местами первый максимальный (если таковых несколько) и последний минимальный (если таковых несколько) по значениюэлементы массива. Число элементов в массиве не более 10-ти Pascal
Решение:
var a: array[1… 10]of integer; max,min,i,n,i1,i2: integer; beginreadln (n); for i: =1 to n do readln (a[i]); max: =a[1]; min: =a[1]; for i: =1 to n do beginif a[i]>max then begin max: =a[i]; i1: =i; end; if a[i] <= min then begin min: =a[i]; i2: =i; end; end; a[i1]: =a[i1]+a[i2]; a[i2]: =a[i1]-a[i2]; a[i1]: =a[i1]-a[i2]; for i: =1 to n do write (a[i],'); end.
Знаете другой ответ?