Список голосов Thank You

[Ленка Фоменка]

Как то так наверно:

const n = 10;
var
    arr: array[1..n] of integer;
    max_num,min_num: integer;
    i, max_index,min_index: byte;
 
begin
 
    i := 1;
   repeat                       //цикл с постусловием
        write ('Число: ');
        readln(arr[i ]);
        i := i + 1
    until (arr[i-1] = 0) or (i > n);
   
    max_index := 2;                   //поиск максимального элемента в четных позициях таблицы
    max_num := arr[2];
    i := 2;
     while i <= n do begin
        if arr[i ] > max_num then begin
            max_index := i;
            max_num := arr[i ];
        i := i + 2
    end;


    min_index := 1;                   //поиск минимального элемента в нечетных позициях таблицы
    min_num := arr[1];
    i := 1;
     while i <= n do begin
        if arr[i ] < min_num then begin
            min_index := i;
            min_num := arr[i ];
        i := i + 2
    end;

 
    writeln ('Max = ',max_num);    //вывод на экран максимального четного элемента
    writeln ('position: ', max_index);
 
    writeln ('Min = ',min_num);  //вывод на экран минимального нечетного элемента
    writeln ('position: ', min_index);
readln
end.