две задачи на массивы или матирцы!

[Valik102]

1.Даны действительные числа a,b,c,x,y.Вяснить, пройдет ли кирпич с ребрами a,b,c в прямоугольное отверстие со сторонами x,y. Наклонно кирпич не просовывать.
2.Дан массив из N целых чисел. Осуществить циклический сдвиг массива вправо на K<N элементов. При этом последние К элементов перемещаются на первые К позиций.

Помогите плиз а то мне будет плохо

[puporev]

Первую и сам бы мог написать, простой перебор вариантов.

uses crt;
var a,b,c,x,y:real;
begin
clrscr;
write('a=');readln(a);
write('b=');readln(b);
write('c=');readln(c);
write('x=');readln(x);
write('y=');readln(y);
if((a<=x)and(b<=y))
or((a<=y)and(b<=x))
or((a<=x)and(c<=y))
or((a<=y)and(c<=x))
or((b<=x)and(c<=y))
or((b<=y)and(c<=x))
then writeln('Projdet!')
else writeln('Ne projdet!');
readln
end.

№2.

uses crt;
const n=10;
var x:array[1..n]of integer;
    k,i,j,r:integer;
begin
clrscr;
randomize;
repeat
write('k=');readln(k);
until (k>0)and(k<n); //проверяем правильность ввода к
writeln('Ischodny massiv:');
for i:=1 to n do
     begin
      x[i]:=random(10);
      write(x[i],' ');
     end;
writeln;
for j:=1 to k do
   begin
     r:=x[n]; //запоминаем последний
     for i:=n downto 2 do //от второго до конца сдвигаем вправо на 1
       begin
         x[i]:=x[i-1];
       end;
     x[1]:=r;//последний ставим первым и так к раз
   end;
writeln;
writeln('Sdvinutyj massiv:');
for i:=1 to n do
write(x[i],' ');
readln;
end.

[Valik102]

ехухухухухухху, я просто в шоке какие сдесь добрые люди

[Valik102]

блин напишите метод решения если можно =) очень надо

[puporev]

Какой метод решения, чего? И почему блин?

[capta1n]

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

[puporev]

По моему в комментариях все написано, а если и после этого не понимет, то и нефиг мучаться.

[Valik102]

да я имел ввиду алгоритм и действия

[capta1n]

Валик, не в обиду, но если мы всем тут будем расписывать алгоритмы "бесплатно" постоянно - я удалю свой профиль )))

[Valik102]

во блин=((((((((((((((((((((((