50баллов. Паскаль. С клавиатуры введены 6 целых чисел. составьте программу, которая

50баллов. Паскаль. С клавиатуры введены 6 целых чисел. составьте программку, которая найдет из них величайшее из них. использовать функцию поиска большего из 2-ух (БИД).

Задать свой вопрос
1 ответ

//PascalABC.NET 3.4.2

var x, max: integer;

procedure my_max(x1, x2: ^integer);

begin

 if (x2^ gt; x1^) then x1^ := x2^;

end;

begin

 loop 6 do

 begin

   x := readinteger();

   my_max(@max, @x);

 end;

 write(max);

end.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт