1.найти минимальный по модулю элемент массива x= 2 1 0 -1 0 2 1 0 3 -2 2 0 2. используя программу ранжирования, найти сумму 3-х наибольших по модулю элементов массива: t=(-1,2,1,1,-4,0,2,5,3,-2,1) распечатать массив до и после ранжирования.

1)program test; var   a: array[1..12] of integer;   i,min: integer; begin   for i: =1 to 12 do begin       readln(a[i]);       a[i]: =abs(a[i]);       if i=1 then min: =a[i]       else if a[i]< min then min: =a[i];   end;   writeln(min); end. 2) uses crt ; var     a                      : array [ 1 .. 100 ] of integer ;     c                      : integer ;     i , j , n      : shortint ; begin         clrscr ;         write ( 'количество элементов массива = ' ) ;         readln ( n ) ;         writeln ( 'ввод массива' ) ;         for i : = 1 to n do                 read ( a [ i ] ) ;                                 a[i]: =abs(a[i]);         writeln ;         //сортировка пузырьком//         for i : = 1 to n - 1 do begin                 for j : = n downto i + 1 do begin                         if a [ j ] < a [ j - 1 ]                         then                         begin                                   c : = a [ j ] ; a [ j ] : = a [ j - 1 ] ; a [ j - 1 ] : = c ;                         end ;                                         end;                         end;         for i: =n-2 to n do writeln(a[i]); end .

Сабақ оқы сонда білесің