Решение задачи № 2 из главы 15. Найти в массиве два самых больших числа.Вариант 1

Задача №2

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

program pascal_maximum2;
var i ,max1, max2 : integer;
arr : array[ 1..7 ] of integer;

{ обходим первый раз массив,
 с целью присвоить значения элементам }
begin
  for i := low(arr) to high(arr) do  
  begin
    writeln('input digit :');
    readln( arr[i] ); // считываем элемент i массива 'arr' из консоли  
  end;
  max1 := arr[1]; // присваиваем переменной  значение массива с индексом 1
  max2 := arr[2]; // присваиваем значение переменной массива с индексом 2
  { обходим второй раз массив,
   с целью определения двух максимумов }
  for i := 3 to high(arr) do // начинaем обход с 3 элемента
    if( arr[i] > max1 ) or ( arr[i] > max2 ) then
    begin
      if ( max1 > max2 ) then
      begin
        max2 := max1;
        max1 := arr[i];
      end
      else  
      begin
        max1 := max2;
        max2 := arr[i];
      end;  
    end;
  writeln('max values : ', max1 ,' ', max2 ); 
end.