Составители:
Рубрика:
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
Страницы
- « первая
- ‹ предыдущая
- …
- 60
- 61
- 62
- 63
- 64
- …
- следующая ›
- последняя »
