Turbo Pascal. помогите найти элемент массива...

[Сергей К.]

Сформировать одномерный массив из 9 элементов целого типа.
Написать 3 подпрограммы-процедуры:
Первая процедура заполняет массив случайными числами (Random) из диапазона 0..99.
Вторая процедура выводит массив на экран в одну строку.
Третья процедура находит элемент массива, у которого первая цифра наибольшая, выводит на экран значение элемента и его индекс.

вот моя попытка: (кажется всё правильно,только нету 3 процедуры. ДОПИШИТЕ ПОЖАЛУЙСТА)

Program Proga;
Var AA:Array [1..9] OF Integer;
I,Max,Min,Imax,Imin:Integer;

Procedure Massiv;
Begin
Randomize;
For I:=1 TO 9 DO AA[I]:=Random(100);
End;

Procedure Vivod;
Begin
For I:=1 TO 9 DO Write(AA[I]:4);
End;

Procedure Naib;
Begin


End;

Begin
Massiv;
Vivod;
Naib;
WriteLn;
ReadLn
End.

[Alex_FF]

procedure Naib ;
  procedure FirstDigit(X: Integer);
  begin
    while X div 10 <> 0 do
      X := X div 10;
    FirstDigit := X;
  end;
begin
  Max := FirstDigit(AA[1]);
  IMax := 1;
  for I := 2 to 9 do
    if Max < FirstDigit(AA[I]) then
    begin
      Max := FirstDigit(AA[I]);
      IMax := I;
    end;
  WriteLn(AA[IMax]);
  WriteLn(IMax);
end;

P. S. У тебя в первой процедуре надо заполнять массив числами от 0 до 9, так что пиши Random(10), а не Random(100)

[Serge_Bliznykov]

P. S. У тебя в первой процедуре надо заполнять массив числами от 0 до 9, так что пиши Random(10), а не Random(100)

Ошибаетесь! в задаче нужны числа от 0 до 99
так что всё правильно написано!!


Сергей К. тёзка, а чем Вас не устроила Ваша же тема "Pascal. поиск макс. элемента массива" ?????

[Сергей К.]

тем, что ту программу я пытался вставить в свою и заменить все имена на свои, но там почему-то не работает. и ещё мне надо без "FirstDigit(X: Integer)" потому,что мы такого не изучали и препод не зачтёт мне такую прогу. можно как-нибудь через IF сделать??

[Сергей К.]

а ещё вот тут:
procedure Naib ;
procedure FirstDigit(X: Integer);
begin
while X div 10 <> 0 do
X := X div 10;
FirstDigit := X;
end;

выдаёт ошибку.нужно вставить "(", вставляешь, выдаёт что нужно ")" и потом ";" и вообще :=X не нужно. что делать?

[Serge_Bliznykov]

В вашем конкретном случае вместо FirstDigit(_что_то_)
можете смело писать
(_что_то_ div 10)
Это даст ПЕРВУЮ цифру числа (или выражения) _что_то_
ВНИМАНИЕ! ВАЖНО! это допустимо только потому, что у вас число в диапазон от 0 до 99 (для трёх и более значных чисел простое деление НЕ ДАСТ первую цифру. Тогда уже Вам волей-неволей прийдётся думать и разбираться, как же работает функция FirstDigit


___________________
p.s. она у Алекса написана с ошибками.
правильно так:

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