Максимальное число массива

[milkovozec]

Стыдно,но прошу помощи у вас.=( Как то не удалось с массивами сдружиться,а именно они портят мою контрольную=(
Буду рад,если кто то поможет.
Найти максимальное число массива,состоящего из 10 чисел,заданных случайным образом.

Заранее спасибо.

[Poma][a]

program Asd;

var    
         a : array [1..10] of Integer;
         i, max : Integer;

begin
        Randomize;
         
        for i := 2 to 10 do begin
                 a[i] := Random (1000);
        
        max := a[1];
        for i := 1 to 10 do begin 
                 if a[i] > max then
                         max := a[i];
        
         WriteLn (max)
end.

[Serge_Bliznykov]

Поиск максимального (минимального) элемента массива - это же буквально АЗБУКА.

Ну напишут Вам код, раз уж Вы поиском по форуму ничего не нашли (точнее не искали), но и что это Вам даст?!

впрочем, извольте.

IndexMax := 1; {берём индекс первого элемента - как максимального - т.е. изначально считаем, что первый элемент массива максимален}

{цикл по всем остальным элементам массива}
for i:=2 to 10 do
   {если очередной элемент массива больше элмента, индек которого мы запомнили, как индекс максимального, то...}
   if A[i]>A[IndexMax] then 
          IndexMax := i; {запомнили индекс очередного как индекс максимального}

  WriteLn('Максимальный элемент массива равен ',A[IndexMax]);