Дан массив целых чисел

Question

Дан массив целых чисел. Поменять местами первый максимальный (если таковых несколько) и последний минимальный (если таковых несколько) по значениюэлементы массива. Число элементов в массиве не более 10-ти Pascal

Answer 1

65

baxok

07 сентября 2022

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.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: