Ввести с клавиатуры 3 числа ввес и максимальное и минимальное значение

Question

Информатика

Бажен

5 июня, 15:20

Ввести с клавиатуры 3 числа ввес и максимальное и минимальное значение

+5

Ответы (2)

Знаете ответ?

Володюша · Answer 1

Var a, b, c, max, min:real;

begin

readln (a) ;

max:=a;

min:=a;

readln (b) ;

if b
if b>max then max:=b;

readln (c) ;

if c
if c>max then max:=c;

writeln ('min=', min,' max=', max)

end.

Филиппыч · Answer 2

procedure swap (var a, b: real) ;

var

c: real;

begin

c : = b;

b : = a;

a : = c;

end;

var

a, b, c, d: real;

begin

readln (a, b, c) ;

if (a < b) then

swap (a, b) ;

if (b < c) then

swap (b, c) ;

if (a < b) then

swap (a, b) ;

writeln ('min = ', c, #13, 'max = ', a) ;

end.