Склавиатуры вводятся три строки вида: " ". например: петров 129 сидоров 180 иванов 190 выведите на экран фамилию самого высокого человека. если таких несколько - напечатать всех.

Иванов самый высокий

Это на проге экзель там можно решить просто

Наконец люди, делающие скриншоты заданий вместо того, чтобы фотографировать экран. Даже решать приятно.


Двоек нет - так что у Кати сразу ставим 0 у двух. Тройки у нее нет по условию, значит 5. Оценки уникальные, значит у двух остальных пятерки быть не могут - ставим весь оставшийся столбец нолей (кроме верхнего, очевидно).

Оценку Даны мы знаем - 4, т.к. 2, 3 и 5 быть не могут.

Оценку Вики вычисляем по последнему оставшемуся уникальному числу - 3.

Иванов - 72+71+71+90=304(зачислить)
Петров - 54+44+53+63=214(отказать)
Сидоров - 63+44+62+72=241(отказать)
Голубев - 54+53+65+72=244(отказать)
Максимов - 81+80-80+90=331(зачислить)
Смирнов - 90+71+71+81=313(зачислить)
Сергеев - 90+62+62+80=294(зачислить)

Средние результаты:
Математика - (72+54+63+54+81+90+90):7=72
Русский язык - (71+44+44+53+80+71+62):7=61
Английский язык - (71+53+62+65+80+71+62):7=66
История - (90+63+72+72+90+81+80):7=78

Var a: array[1..4] of integer;
    i,j: integer;
begin
   for i:=1 to 4 do read(a[i]);
   for i:=1 to 3 do
   for j:=i+1 to 4 do
   if a[i]<a[j] then swap(a[i],a[j]);
   writeln(a[1]*a[2]+a[3]*a[4]);
end.

11 6 5 19
239