Question

Pascal ABC. Дано N чисел (меньше 3000), задача - вывести минимальное и максимальное число.

Answer 1

Ответ:

Объяснение:

Ви можете скористатися циклом for та функцією Min або Max, щоб вивести мінімальне та максимальне число з набору.

Наприклад:

var

 minValue, maxValue, currentValue: integer;

begin

 minValue := MaxInt;  // присваєння максимального можливого цілого числа

 maxValue := MinInt;  // присваєння мінімального можливого цілого числа

 for i := 1 to N do

 begin

   read(currentValue);

   minValue := Min(minValue, currentValue);  // обрахунок мінімуму

   maxValue := Max(maxValue, currentValue);  // обрахунок максимуму

 end;

 write(minValue, ' ', maxValue);

end.

У цьому прикладі змінна minValue прийме найменше значення серед введених чисел, а maxValue - найбільше.