Пользователь вводит 21 число.Найти наибольшее число среди элементов с девятого по пятнадцатый включительно.

Программа:

Pascal:

var

 arr: array[1..21] of integer;

 i, max: integer;

begin

 writeln('Введите числа: ');

 for i := 1 to 21 do readln(arr[i]);

 for i := 9 to 15 do begin

   if i = 9 then max := arr[i];

   if arr[i] > max then max := arr[i];

 end;

 writeln('Максимальный элемент с 9 по 15: ', max);

end.