Дано масив з 20 дійсних чисел, всі елементи якого різні.
а) знайти середнє значення елементів масиву, що знаходяться на позиціях,
кратних числу 4.
б) знайти суму чисел, розташованих між мінімальним і максимальним
значеннями.
в) упорядкувати елементи, що знаходяться на парних позиціях за спаданням

Program rok_ork_kok;var x,y:integer;        s:string;        c1,c2,c3:char; begin writeln('начать выполнение? Жмите ENTER!'); readln; repeat randomize; x:=random(4); if x = 1 then c1:='р'; if x = 2 then c1:='о'; if x = 3 then c1:='к';  x:=random(4); if x = 1 then c2:='р'; if x = 2 then c2:='о'; if x = 3 then c2:='к';   x:=random(4); if x = 1 then c3:='р'; if x = 2 then c3:='о'; if x = 3 then c3:='к'; s:=c1+c2+c3; writeln(s); until (s='кок') or (s='рок') or (s='орк') ; writeln('получили слово '+s); end.

Единственный разбить запись 1311 на два числа – это 13 и 11 (числа 131 и 311 не могут образоваться в результате сложения значений двух десятичных цифр)
2) Сумма первой и второй цифр должна быть наименьшей (тогда и число будет меньше!), она равна 11; тогда сумма значений двух последних цифр равна 13
3) Для того, чтобы всё число было минимально, числа, составленные из первых двух и последних двух цифр должны быть минимальными соответственно для сумм 11 и 13
4) Минимальное двузначное число, у которого сумма значений цифр равна 11, - это 29, с этих двух цифр начинается исходное четырёхзначное число
5) Сумма двух последних цифр – 13, минимальное двузначное число с такой суммой цифр – 49.

ответ: 2949