Pascal. поиск макс. элемента массива

[Serge_Bliznykov]

т.к. числа в задании двухзначные, то достаточно
сравнивать (Число div 10) и не надо никаких делений, умножений, функций и прочего..
Хотя, функция FirstDigit из поста #10 от Alex_FF имеет такой несомненный плюс - она не зависит от числа - какое бы ей число не дали на вход (хоть двухзначное, хоть десятизначное), она всегда вернёт первую цифру!!!


_____
в программе две ошибки - для функции не задан возвращаемый тип,
и Random должен быть от 99: Random(99) т.к. Random(Range) — the range 0 <= X < Range.

Ещё бы я выдавал массив. а то невозможно проконтролировать работу программы.
И последнее, мне кажется, что в задании нужно выдавать не максимальную цифру, а элемент с максимальной цифрой

вот мой вариант (на базе (c) Alex_FF ):

function FirstDigit(X: Integer) : integer;
begin
  while X div 10 <> 0 do
    X := X div 10;
  FirstDigit := X;
end;

var
  I, Max  : Integer;
  a: Array[1..9] of Integer;
begin
  Randomize;
  for I := 1 to 9 do begin
    a[i] := 1 + Random(99);
    Write(a[i]:3)
  end;
  WriteLn;
  max := a[1];
  for I := 1 to 9 do
    if FirstDigit(Max) < FirstDigit(a[i]) then Max := a[i];
  WriteLn('Max element = ',Max:1);
end.

[Alex_FF]

тип для функции правда забыл написать

[Serge_Bliznykov]

Random(98) возвращает число от 0 до 98

нет. Random(98) будет давать число от нуля до 97

сделайте маленький тестовый пример,
только возьмите, например, random(5):

for i:=1 to 20 do Writeln(Random(5));

пятёрка вышла хоть раз?