Дан массив указать наименьшую длину числовой оси содержащую все числа массива
Дан массив указать наименьшую длину числовой оси содержащую все числа массива
Гость
Ответ(ы) на вопрос:
Гость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 MaxA[i] then Min:=A[i];
End;
WriteLn('- данные числа лежат на отрезке, длина которого: ',Max - Min);
End.
Не нашли ответ?
Похожие вопросы