Pascal ABC . Циклические перестановки в одномерных массивах

[lonis]

Ввести одномерный целочисленный массив A , вывести его. В массиве трижды произвести циклический сдвиг вправо всех элементов следующих за минимальным из чётных. Заранее спасибо

[ARudik]

Можно так.

var count,i,idmin:integer;
	mas:array[0..512] of integer;
	min:integer;
begin
	write('Input count of elements: ');
	readln(count);
	for i:=0 to count-1 do read(mas[i]);
	i:=0;
	while (mas[i] mod 2)<>0 do i:=i+1;
	min := mas[i];
	idmin:=i;
	for i:=idmin to count-1 do 
		if (mas[i] mod 2)=0 then 
			if mas[i]<mas[idmin] then idmin:=i;		
	i:=count-1;
	while i>idmin do
		begin
			mas[i+3]:=mas[i];
			i:=i-1;
		end; 
	mas[idmin+1]:=mas[count];
	mas[idmin+2]:=mas[count+1];
	mas[idmin+3]:=mas[count+2];
	for i:=0 to count-1 do write(mas[i],' ');
end.

[Stilet]

Ух... Ядреное решение...
Мой хъод:

var a:array[1..10] of integer; min:integer;
 procedure ror(imin:integer); var k,i:integer; begin  inc(imin);
  k:=a[imin]; for i:=imin+1 to 10 do a[i-1]:=a[i]; a[10]:=k;
 end;

begin
 for i:=1 to 10 do begin
  Readln(a[i]); if (i=1) or (a[i]<a[min]) then min:=i;
 end;
 for i:=1 to 10 do write(a[i]:5);writeln;
 for i:=1 to 3 do ror(min);
 for i:=1 to 10 do write(a[i]:5);
 readln;
end.