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

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

Question

Информатика

Евгения

13 марта, 06:20

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

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

+2

Ответы (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. Найти разность между максимальным и минимальным значениями.