Turbo pascal создайте массив, содержащий 20 различных целых чисел. отсортируйте первую половину массива по возрастанию, а вторую по убыванию. все четные элементы массива увеличить в три раза, а нечетные в 2 раза. содержимое обработанного таким образом массива вывести на экран.

Var j, i, x: integer; a: array [1..20] of integer; begin       randomize;       writeln();       for i : = 1 to 20 do           a[i] : = random(1000);       for j : = 2 to 10 do           for i : = 10 downto j do               if a[i] < a[i - 1]               then               begin                   x : = a[i];                   a[i] : = a[i - 1];                   a[i - 1] : = x;               end;       for j : = 12 to 20 do           for i : = 20 downto j do               if a[i] > a[i - 1]               then               begin                   x : = a[i];                   a[i] : = a[i - 1];                   a[i - 1] : = x;               end;       for i : = 1 to 20 do       if i mod 2 = 0         then           a[i] : = 3 * a[i]       else           a[i] : = 2 * a[i];       writeln();       for i : = 1 to 20 do           write(a[i], ' '); end.

Клавиатура — компьютерное устройство, которое располагается перед экраном дисплея и служит для набора текстов и компьютером с клавиш, находящихся на клавиатуре. клавиатура позволяет вводить в компьютер  числовую и текстовую информацию, а также различные команды и данные. раскладка на клавиатуре придумана исходя из часто используемых комбинаций букв. так, например, буква "ё" вынесена отдельно от остальных, ибо ее используют редко. по своему назначению клавиши на клавиатуре условно делятся на основные группы: буквенно-цифровые клавиши,клавиши цифровой клавиатуры,клавиши , клавиши-модификаторы, функциональные клавиши, клавиши курсором. буквенно-цифровые клавиши также именуются алфавитно-цифровыми клавишами, клавишами данных, клавишами для ввода данных. клавиши предназначены для выполнения определенных действий. они могут использоваться отдельно или в сочетании с другими клавишами. помимо обычных клавиатур со стандартным набором данных бывают: - мультимедийные клавиатуры:   помимо стандартного набора из 104  клавиш, снабжаются дополнительными клавишами (как правило, другого размера и формы), которые предназначены для некоторыми основными функциями компьютера - программируемые клавиатуры:   разработаны клавиатуры, в которых назначение и внешний вид клавиш изменяется программным образом в зависимости от выбранного набора символов и даже от запущенного в текущий момент приложения.

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

uses crt;

Var A, B, C, D, X, X1, X2 : Real;

Begin

Writeln ('Введите коэффициенты уравнения (A, B, C) ');

readln(a,b,c);

If A=0 Then

  If B=0 Then

             If C=0 Then Writeln('X - любое число')

                 Else Writeln('Корней нет! ')

       Else

       Begin

       X:=-C/B;

       Writeln('X=',X:8:3);

       End

  Else

  Begin

  D:=B*B-4*A*C;

  If D<0 Then Writeln ('Корней нет! ')

     Else

     Begin

     X1:=(-B+SQRT(D))/2/A;

     X2:=(-B-SQRT(D))/2/A;

     Writeln ('X1=', X1:8:3, ' X2=',X2:8:3);

     End;

  End;

End.

Объяснение:

Это код для решения квадратных уавнений