Задача 4 Урок 15

Задача 4 Урок 15

Пользователь вводит массив целых чисел из 7 элементов. Найдите из них два самых больших числа и выведите их на экран.

var
  i, max1, max2: integer;
  arr: array [1..8] of integer;
procedure initArray( var a: array of integer);
var
  min, max: integer;
begin
  randomize();
  min:= 10;
  max:= 50;
  for i:= low(a) to high(a) do
     a[i]:= random(10);
end;
begin
  initArray(arr);
  max1:= -99999;
  max2:= -99999;
     for i:= low(arr) to high(arr) do
        begin
          writeln(' i = ', arr[i]);
          if arr[i] > max1 then
          begin
            max2:= max1;
            max1:= arr[i];
          end;
          if (arr[i] > max2) and (arr[i] < max1) then
             max2:= arr[i];
        end;
  writeln('max1= ', max1);
  writeln('max2= ', max2);
  readln();
end.