TURBO PASCAL:Учебное пособие. Терёхин В.В. - 62 стр.

         if A[i] > max then max:= A[i] ;
         if A[i] < min then min:= A[i];
    end;
    {вывод максимума и минимума}
    Writeln('max= ', max, ' min= ‘ , min);
end.
         Задача. Элементы массива вводятся с клавиатуры, за-
менить в нем все отрицательные элементы их квадратами, а
положи-тельные - кубами. Вывести на экран исходный и новый
масси-вы.
program p19;
const
   n = 10;
Var
   А, В: array[ 1.. n] of real;
   i: integer;
begin
   {ввод элементов массива}
   Writeln(‘введите элементы массива, ‘ , n, ‘ элементов');
    for i:= 1 to n do Read (A [i] );
   B:=A; {запомнили исходный массив }
   For i:= 1 to n do
       if A[i] < 0 then A[i] := sqr(A[i])
       else if A[i] > 0 then A[i] := sqr (A[i] ) * A[i] ;
    {вывод элементов массивов}
    Writeln('Исходный массив: ') ;
    for i:= 1 to n do Write (B[i] : 8: 4) ;
    Writeln;
     Writeln('Новый массив: ');
    for i:= 1 to n do Write(A[i]: 8: 4) ;


     18.2 Сортировка одномерного массива
     Сортировкой называют набор операций, упорядочи-
вающий массив в соответствии с индексами, на множестве
                                                          62