составить программу которая находит два максимальных элемента в массиве
- 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.