Код для паскаль.

Дана последовательность целых чисел a, b, c. Найти разность между максимальным и минимальным значениями.

Question

Информатика

Павша

20 апреля, 17:09

Код для паскаль.

Дана последовательность целых чисел a, b, c. Найти разность между максимальным и минимальным значениями.

+3

Ответы (2)

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

Ульян · Answer 1

Var a, b, c:integer;

max, min:integer;

begin

readln (a, b, c) :

if (a>b) and (b>c) then max:=a else

if (b>a) and (a>c) then max:=b else max:=c;

if (a
if (b
writeln (max-min) ;

end.

Северьян · Answer 2

program pin;

var

i, j, cm: Integer;

povtor: Boolean;

const

m: array[1 ... 10] of Integer = (1, 2, 3, 1, 2, 5, 4, 3, 1, 2) ;

begin

cm : = 0;

for i : = 1 to 10 do

begin

povtor : = False;

Код для паскаль.Дана последовательность целых чисел a, b, c. Найти разность между максимальным и минимальным значениями.

Код для паскаль.

Дана последовательность целых чисел a, b, c. Найти разность между максимальным и минимальным значениями.