Question

Помогите с информатикой! Срочно!
На Паскаль!

Answer 1

Ответ:

Это первое,  остальные аналогично. Все что нужно для следующих, есть в этом коде

Объяснение:

program MinMax;

var

   x, Min, Max : integer;  {х - каждое новое введенное число последовательности, Min, Max - то с чем сравниваем}

   FirstInput : boolean; {Признак ввода первого числа последовательности}

begin

   FirstInput := true;

   Min := 0; Max :=0;

   repeat {Циклы ввода последовательности х}

       repeat

           write ('Input next X: ');

           ReadLn(x);

       until (x >= -300) and (x <= 1200); {проверяем, что х в заданном диапазоне, если нет, то повторяем ввод}

       if FirstInput = true then begin Min := x; Max :=x; end; {проверяем, что введено первое число из последовательности и объявляем его мин и макс одновременно}

       FirstInput := false; {устанавливаем, что первое число уже введено}

       If (x <>0) and (x < Min) then Min := x;  {что текущее число не 0 и одновременно меньше минимального, если да, то прописываем его минимальным}

       If (x <>0) and (x > Max) then Max := x; {что текущее число не 0 и одновременно больше ранее введенного максимального, если да, то объявляем его максимальным}

   until x=0; {если введено 0 прекращаем ввод}

 

   if (Min = 0) and (Max = 0)

   then WriteLn ('No min & max was found.')

   else WriteLn ('Min = ', Min , ' Max = ', Max);

end.