Question

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) распечатать массив до и после ранжирования.

Answer 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 .