Помогите пожалуйста.Вот задача: дано три разных числа, найти среднее из них. Средним называется число, которое больше наименьшого с данных чисел , но меньше наибольшего.

Pascal abc
не получается сделать рандом от -10 до +10

Помогите с задачей по олимпиаде.
В комнату занесли столы и компьютеры . Их разместили так:
1 2 3 4 .......и тд.
1 2 3 4 5 6
(Внизу компьютеры вверху столы)
нужно решить задачу с помошью цикла и div, mod. помогите плиз.
Заранее благодарю.

Принципиально, это опечатка, исправил

Вы пишите, что на пером месте максимальное число, а на втором минимальное. Но у вас в примере наоборот. Как я понял это не принципиально?

Спасибо за описание метода пузырька. Хотелось бы поподробнее изучить метод Хоара. Что за метод выбора?

Создать массив из 20 случайных чисел в диапазоне от -30 до 0. Нечетные элементы возвести в квадрат и вывести на экран поиск массива. a как решить?

Помогите , нужна такая программа ,Ставка=1000 Бросаем 3 кубика , если число больше 12 то выйграли и ставка увеличивается в трое , а если проигрываем то ставка уменьшается в двое.Если числа на кубиках одинаковы то защитать победу, на этом всё , помогите пожалуйста!!!

Код такой. Задачка с олимпиады 9 класса на определение подъезда и этажа при известном номере квартиры. В ABC все работает как надо. Обо что может спотыкаться Турбо?
program podjezd;
var a,b,c,d,e,f:integer;
begin
writeln('Введите количество этажей');
readln(a);
writeln('Введите количество квартир на лестничной клетке');
readln(b);
writeln('Введите номер квартиры');
readln(c);
d:=a*b;
e:=(c div d)+1;
f:=((c mod d)div b)+1;
writeln('квартира находится на ',e,' подъезде и ',f,'этаже');
readln;
end.

Мелкие орфографические ошибки совсем не мешают тем, кто пришел сюда действительно узнать что-то новое, а не ерундой помаяться.