Урок 31 октября 10б я объяснила, 10 а посмотрите сами.

Максимальный и минимальный элементы в массиве

 ссылка

var a: array[1..20] of integer;
n, i,min, max, raz, pr: integer;
begin
    write('Количество n=');
    readln(n);
    writeln (' элементы массива');
    for  i:= 1 to n do
      read(a[i]);
     min:= a[1];
     for  i:= 2 to n do
    if a[i] < min then
      min:= a[i];
       writeln ('Минимум= ', min,'индекс= ',i);
       max:= a[1];
     for  i:= 2 to n do
    if a[i] > max then
      max:= a[i];
       writeln ('Максимум= ', max);
    end.