Дан массив указать наименьшую длину числовой оси содержащую все числа массива

Question

Информатика

Аксён

25 сентября, 22:07

Дан массив указать наименьшую длину числовой оси содержащую все числа массива

+4

Ответы (1)

Знаете ответ на вопрос?

Полюша · Answer 1

Const N = 13;

Var

A:array[1 ... N] of integer;

i, Min, Max:integer;

Begin

For i: = 1 to N do

Begin

A[i]:=random (N) ;

Write (A[i],' ')

End;

Max:=A[1];

Min:=A[1];

For i: = 2 to N do

Begin

if Max
if Min>A[i] then Min:=A[i];

End;

WriteLn (' - данные числа лежат на отрезке, длина которого: ', Max - Min) ;

End.