Выведи на экран большее из двух данных чисел.
Запиши программу на языке Паскаль, выведи ответ на экран, если 1,54397 и 2,2203.

1.bmp
3.bmp
2.bmp

На экране

vvedi dva chisla
1,54397 2,2203

Const
  nn=50; // максимальное количество учеников
var
  i,n,sm,sd,km,kd:integer;
  am,ad:real;
  var a:array[1..nn] of integer;
begin
  Write('Введите количество учеников: ');
  Read(n);
  Writeln('Введите рост учеников');
  sm:=0; sd:=0; km:=0; kd:=0;
  for i:=1 to n do
    begin
    Read(a[i]);
    if a[i]>0 then begin sd:=sd+a[i]; Inc(kd) end
    else begin sm:=sm-a[i]; Inc(km) end
    end;
  am:=sm/km; ad:=sd/kd;
  Write('Средний рост мальчиков (',am:0:1,') ');
  if am-ad<=10 then Write('не ');
  Writeln('превышает средний рост девочек (',ad:0:1,') ');
  Writeln('больше, чем на 10 см')
end.
   
Примерное решение

Введите количество учеников: 9
Введите рост учеников
-192 165 -174 179 -172 171 169 170 -170
Средний рост мальчиков (177.0) не превышает средний рост девочек (170.8)
больше, чем на 10 см

ответ: y = 10

Объяснение:

Рассмотрим последовательность команд: 11112

Была применена 4 раза команда 1, то есть +7. То есть было четыре раза прибавлена семерка.

Найдем каким стало число после 4ех команд (4 раза прибавить 7):

2 + (4 * 7) = 30

Далее была произведена 2 команда, то есть 30 умножили на какое-то неизвестное y.

Мы знаем, что после 5ой и последней команды число стало 300, то есть мы с легкостью может найти y, решив простое уравнение (число после применения 4ой команды умножить на y равняется итоговому - 300):

30 * y = 300

Очевидно, что у = 10.