Паскаль. Замена элементов массива

[Exostrann]

Здравствуйте! Подскажите решение задачи: "Каждый 3-й элемент одномерного массива заменить минимальным из стоящих впереди элементов"

-----------
Смог сделать только так:
-----------

var a:array [1..100] of integer;
    i,n: integer;
    min :byte;
begin
write ('Pазмер массива ');
readln(n);
writeln ('Исходный массив ');
for i:=1 to n do
    begin
    a[i]:=random(19);
    write(a[i]:3);
    end;
writeln;
writeln ('Итоговый массив ');
for i:=1 to n do
    begin
    if i mod 3=0 then a[i]:= min;
    write(a[i]:3);
    end;
end.

------------
Но нужно чтобы в нахождении минимума участвовали только те элементы, что стоят правее заменяемого элемента

______________________
Используйте тег [CODE] (кнопка с решеткой # в форме сообщения) при вставке кода на форум.

[Serge_Bliznykov]

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

те элементы, что стоят правее заменяемого элемента

Мне кажется, что Вы неправильно поняли условия задачи и тем самым сильно её усложнили!

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

"Каждый 3-й элемент одномерного массива заменить минимальным из стоящих впереди элементов"

"стоящие впереди" - это ЛЕВЕЕ.
имхо, конечно.
например, массив: 1 2 3 4 5 6 7
(там 1 и 2 стоят ПЕРЕД 3)

кроме того, не понятно, а сам заменяемый элемент участвует в сравнении?