Найти максимальный и минимальный элементы и поменять их местами - Turbo Pascal (35329)
Формулировка задачи:
Найти минимальный и максимальный элементы массива Х и поменять их в массиве местами. Элементы массива вычисляются по формуле Xi=((-1)^i)*((i^2)-3*i), где i=1,2.....,10
Решение задачи: «Найти максимальный и минимальный элементы и поменять их местами»
textual
Листинг программы
Const n=10; Var X:array[1..n] of integer; i,imax,imin:byte; t:integer; Begin writeln('Исходный массив'); For i:=1 to n do Begin if odd(i) then X[i]:=-i*i-3*i else X[i]:=i*i-3*i; write(X[i]:5); End; imax:=1;imin:=1; For i:=2 to n do if X[i]>X[imax] then imax:=i else if X[i]<X[imin] then imin:=i; writeln; writeln('Преобразованный массив'); t:=X[imin]; X[imin]:=X[imax]; X[imax]:=t; For i:=1 to n do write(X[i]:5); readln; End.