Паскаль.Написать функцию, находящуюмаксимальное из 2-ух вещественных чисел и с её помощью

Паскаль.


Написать функцию, находящую
максимальное из двух вещественных чисел и с её подмогою найти наибольшее
из 4-х вводимых с клавиатуры вещественных чисел.



Задать свой вопрос
1 ответ
Готово
function max(a1, a2:integer):integer;
begin
if a1gt;a2 then max:=a1 else max:=a2;
end;

var
a, b, c, d: integer;
begin
readln(a, b, c, d);
write(max(max(a, b), max(c, d)));
end.

Если есть какие-то вопросы либо ещё нужна помощь, в ЛС.
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт