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

UptoLike

Составители: 

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 Сортировка одномерного массива
Сортировкой называют набор операций, упорядочи-
вающий массив в соответствии с индексами, на множестве
         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