Доброго времени суток.
Я бы хотел попросить вашей помощи в решении некоторых заданий.
1. В институте N факультетов. О каждом факультете известно количество человек, которые должны быть набраны на факультет, а также число поданных заявлений на поступление. Выдать список факультетов такой, чтобы сначала шли факультеты с самым большим конкурсом, и так далее по убыванию. (используется несколько массивов)
2. Заполнить массив из 12 элементов случайными числами в интервале [-12..12] и выполнить инверсию для каждой трети массива.
3. Заполнить массив из 12 элементов случайными числами в интервале [-12..12] и выполнить циклический сдвиг ВПРАВО на 4 элемента.
Сам решать я их, конечно же, пробовал. Вот набросок для 1-й задачи, но сравнение у меня там как-то не очень получается, можно даже сказать вообще не получилось:
Code
const N = 999999;
var a:array[1..N] of integer;
b:array[1..N] of integer;
z,max,max1,i,k:integer;
begin
repeat
write('Введите кол-во факультетов в институте: ');
readln(z);
until z >= 1;
for i:= 1 to z do
begin
write('Введите кол-во человек, которые должны быть набраны на ',i,' факультет: ');
readln(a[i]);
write('Введите число поданых заявлений на поступление: ');
readln(b[i]);
a[i]:= b[i] div a[i];//определения конкурса человек на место
end;
max:= a[1];
for i:= 2 to z do
if a[i] > max then max:= i;//Находим самый большой конкурс
while k <> z do
begin
k:= k+1;
max1:= a[1];
for i:= 2 to z do
if (a[i] > max1) and (a[i] < max) then max1:=a[i];
max:= max1;
writeln(max);
end;
end.
Ну а в остальных задачах код вышел убогий и не работоспособный, так что не вижу смысла показывать его вам)
Заранее благодарен и +дарителен 
