Найти минимальное и максимальное значение последовательности - PascalABC.NET

Формулировка задачи:

Нужна помощь с задачей. Нужно разработать алгоритм и написать программный код в среде PascalABC.NET. Написать программу нахождения минимума и максимума. Числа x1, x2,… последовательно поступают на вход программы. Найти и напечатать минимальное и максимальное из введенных чисел. В памяти хранится только текущее число.

Решение задачи: «Найти минимальное и максимальное значение последовательности»

textual
                            Листинг программы 
                        

                            begin
  var(minValue,maxValue):=(Integer.MaxValue,Integer.MinValue);
  loop 5 do begin var value := ReadInteger; minValue := min(minValue,value); maxValue := max(maxValue,value); end;
  WriteLn(minValue,' ',maxValue);
end.
                        

Оцени полезность:

9 голосов , оценка 4 из 5

Похожие ответы