Составить программу которая находит два максимальных элемента в массиве

составить программу которая находит два максимальных элемента в массиве

  • const    n = 10; 
    var    arr: array[1..n] of integer;   
     i, max1, max2, temp: integer;
    begin   
     Randomize;   
     Write(‘Массив:’);   
     for i := 1 to n do begin       
     arr[i] := random(100);       
    Write(‘ ‘, arr[i]);   
    end;   
     WriteLn;   
     max1 := arr[1];   
    max2 := arr[2]; 
      if max1 < max2 then
    begin        temp := max1;       
    max1 := max2;       
     max2 := temp;   
    end;     
      for i := 3 to n do
    begin        if arr[i] > max2 then max2 := arr[i];       
     if max1 < max2 then
     begin            temp := max1;           
     max1 := max2;           
    max2 := temp;       
    end;   
     end;       
     WriteLn(‘Первый максимальный — ‘, max1);   
     WriteLn(‘Второй максимальный — ‘, max2);
    end.