Из массива х (x1,) найти xmax наибольший и xmin наименьший элементы массива, их порядковые номера nmax и nmin, и поменять их местами. результирующий массив вывести на экран

297

494

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

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

pashakort

Информатика

4,5(67 оценок)

program al; var x: array[1..32000] of integer; buf: integer; i,n,min,max: integer; begin writeln('i='); readln(i); writeln('vvedite massiv='); for n : = 1 to i do readln(x[n]); min: =1; max: =1; for n: =2 to i do begin if x[min]> x[n] then min: =n; if x[max]< x[n] then max: =n; end; buf: =x[min]; x[min]: =x[max]; x[max]: =buf; writeln('massiv posle obmena max< -> min'); for n: =1 to i do write(x[n]: 4); writeln; end.