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

[Сергей К.]

помогите пожалуйста! как найти в одномерном массиве с числами от 1 до 99 (Random) элемент, первая цифра которого максимальная? массив состоит из 9 элементов.

[notHaker]

var
  i, ind : integer;
  arr : array[1..9] of byte;
  max, cur : real;
begin
randomize;
for i := 1 to 9 do
  begin
  arr[i] := random(98);
  inc(arr[i]);
  end;
max := 0;
for i := 1 to 9 do
begin
  if arr[i] < 10 then
    cur := arr[i]
  else
    cur := (arr[i] / 10) - ((arr[i] mod 10) * 0.1);
  if cur > max then
  begin
  max := cur;
  ind := i;
  end;
end;
writeln(arr[ind]);
end;

[Stilet]

В цикле по элементам и сравниваешь с некой переменной. Если очередной элемент более этой переменной, присваиваешь переменной этот элемент.

И незачем так кричать...

notHaker

Фухх... Не сложновато ли?

[notHaker]

Сообщение от Stilet

Фухх... Не сложновато ли?

Дык там вродь про первую максимальную цифру он говорил...

[Сергей К.]

СПАСИБО БОЛЬШОЕ! пытался сделать что-то вроде: если меньше 10, то ищет макс, иначе делит на 10, но ничего не получалось! СПАСИБО!!!))


Ну да, про ПЕРВУЮ МАКСИМАЛЬНУЮ ЦИФРУ а там просто ищет максимальное число?

[notHaker]

Сообщение от Сергей К.

СПАСИБО БОЛЬШОЕ! пытался сделать что-то вроде: если меньше 10, то ищет макс, иначе делит на 10, но ничего не получалось! СПАСИБО!!!))


Ну да, про ПЕРВУЮ МАКСИМАЛЬНУЮ ЦИФРУ а там просто ищет максимальное число?

нет... по первой цифре находит.

[Сергей К.]

СПАСИБО!!!

[NiCola999]

что-то больно сложновато вы сделали =))) там же легко, вот пример на си

#include <stdio.h>

int main(void)
{
    
    int a[] = {25,55,78,23,98,19};
    int size = 6;
    int max = a[0], i;
    for(i=0; i<size; i++)
    {
             if(a[i]/10 > max/10)
                  max = a[i];
    }
    printf("%d\n", max);
    getch();
    return 0;
}

[notHaker]

Сообщение от NiCola999

что-то больно сложновато вы сделали =))) там же легко, вот пример на си

#include <stdio.h>

int main(void)
{
    
    int a[] = {25,55,78,23,98,19};
    int size = 6;
    int max = a[0], i;
    for(i=0; i<size; i++)
    {
             if(a[i]/10 > max/10)
                  max = a[i];
    }
    printf("%d\n", max);
    getch();
    return 0;
}

1) массив заполняется рандомом
2) фактически у вас не находит нужный индекс массива (пример : в массиве два элемента 88 и 89, то ваш алгоритм будет указывать на последний, тк 8,9 > 8,8. а должно быть иначе 8,0 = 8,0). К пареньку придерутся. А по вашему алгоритму можно вабще не делить, тк результат будет тот же.

[Alex_FF]

думаю, проще так:

function FirstDigit(X: 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
    a[I] := 1 + Random(98);
  max := 0;
  for I := 1 to 9 do
    if Max < FirstDigit(a[I]) then Max := FirstDigit(a[i]);
  WriteLn(Max);
end.

правда не компилировал, на ходу написал, так что может где-то надо что-то подправить...