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

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

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

program U15Z3;
var a: array[1..7] of integer;
    i,max1,max2: integer;
begin
  writeln('vvedite 7 elementov massiva');
  for i:=1 to 7 do
    readln(a[i]);
  max1:= a[1];
  max2:= a[2];
  if (max1<max2) then
     begin
     max1:=a[2];
     max2:=a[1];
     end;
  for i:=3 to 7 do
    begin
    if (a[i]>max2) then
       if (a[i]>max1) then
         begin
           max2:=max1;
           max1:=a[i];
         end
       else
         max2:=a[i];
    end;
  writeln('maximalnie znacheniya: ', max1, ', ',max2);
  readln();
end.