Найти максимальный и минимальный элементы и поменять их местами - 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.

Оцени полезность:

8   голосов , оценка 4.25 из 5
Похожие ответы