Нахождение min и max в массиве Опции

[Вячеслав Л.]

Чему должно присваиваться значения min и max для программы нахождения максимального числа или минимального числа в массиве? То есть, меня интересует инициализация min и max до цикла. Ведь, по идеи чтобы найти max элемент мы должны первый элемент присвоить какому-то max, затем проверить если какой-то следующий элемент будет больше, чем тот который мы задали, тогда max присвоить этому элементу и т. д. (то есть все это в цикле)

...
max:integer;
...
max:=a[1];
for i:=1 to n do
if a[i]>max then max:=a[i];
...

То же самое для минимального:

...
min:integer;
...
min:=a[1];
for i:=1 to n do
if a[i]<min then min:=a[i];
...

Также ли надо было присваивать для просто введенных с клавы чисел, для которых нам надо было найти min и/или max? То есть:

...
write('vvedite kolvo 4isel');
readln(n);
{naxodim min i/ili max}

[Вячеслав Л.]

Так получается?

var
a:array[1..100] of integer;
i,n,min:integer;
begin
     writeln('vvedite koli4estvo elementov massiva');
     readln(n);
               for i:=1 to n do
               readln(a[i]);
                            i:=1;
                            min:=a[i];
                                      for i:=2 to n do
                                      if a[i]<min then min:=a[i];
    writeln('min element ',min);
end.

[Lapp]

Зачем ты присваиваешь i единицу?.. Единицу надо присваивать min'у. При этом min превращается в индекс. Вот так:

   min:=1;
   for i:=2 to n do if a[i]<a[min] then min:=i;
   writeln('min element is: a[',min,']=',a[min]);

Кроме самого кода, постарайся отсюда выудить максимум рекомендаций по форматированию.


Добавлено через 6 мин.

А почему?
Я бы, например, не стал рекомендовать исправления, которые могут негативно сказаться на производительности. Тем более в том месте, которое может существенно повлиять на время выполнения программы.

Что за спешка? Когда человеку потребуется скорость - тогда будет выжимать все возможное. Пока же такой цели не ставилось.
Когда спрашивается про "макс/мин элемент массива", я всегда сомневаюсь, что же именно хотят: его значение или индекс. Предпочитаю быть готовым ко всему.