Question

10 баллов. Помогите с заданием. Pascal ABC. С клавиатуры вводится рост трех человек. Вывести на экран рост самого высокого из них. Заранее спасибо.

Answer 1

Begin
var a:= ReadArrReal(3);
var b:= a.Max;
Print(b) ;
end.
Если что-то непонятно, уточни)

Answer 2

Конечно, я могу помочь вам с этим заданием на языке Pascal ABC. Вот решение:

pascalCopy code
program MaxHeight;

var
  height1, height2, height3, maxHeight: Integer;

begin
  WriteLn('Введите рост первого человека:');
  ReadLn(height1);
  
  WriteLn('Введите рост второго человека:');
  ReadLn(height2);
  
  WriteLn('Введите рост третьего человека:');
  ReadLn(height3);
  
  // Проверяем, кто из трех человек самый высокий
  if (height1 >= height2) and (height1 >= height3) then
    maxHeight := height1
  else if (height2 >= height1) and (height2 >= height3) then
    maxHeight := height2
  else
    maxHeight := height3;
  
  WriteLn('Самый высокий человек имеет рост ', maxHeight);
  
end.

В этой программе мы сначала запрашиваем рост каждого из трех человек с помощью функции ReadLn. Затем мы сравниваем рост каждого человека и сохраняем самый высокий рост в переменной maxHeight. Наконец, выводим результат на экран с помощью WriteLn.

Надеюсь, это поможет! Если у вас возникнут еще вопросы, пожалуйста, сообщите.