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

Ответы (1)

Бекнар 23.10.2025 3
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.

Знаете правильный ответ?

Думаешь ответы не верны?

Найди верный ответ на вопрос по предмету Информатика, если вы не получили ответа или никто не дал верного ответа, то рекомендуется воспользоваться поиском и попытаться найти ответ на свой вопрос среди похожих запросов.

Воспользуйтесь поиском

Новые вопросы по предмету Информатика:

ПРЕДМЕТЫ