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 - найбільше.

Answer 2

Для решения этой задачи на языке программирования Pascal ABC, вы можете использовать следующий код:

pascalCopy code
program MinMaxNumbers;

var
  N, i, num, minNum, maxNum: integer;

begin
  // Запрашиваем количество чисел (N)
  write('Введите количество чисел N: ');
  readln(N);

  // Запрашиваем первое число и инициализируем minNum и maxNum
  write('Введите число 1: ');
  readln(num);
  minNum := num;
  maxNum := num;

  // Вводим остальные числа и обновляем minNum и maxNum при необходимости
  for i := 2 to N do
  begin
    write('Введите число ', i, ': ');
    readln(num);

    if num < minNum then
      minNum := num;
    
    if num > maxNum then
      maxNum := num;
  end;

  // Выводим минимальное и максимальное число
  writeln('Минимальное число: ', minNum);
  writeln('Максимальное число: ', maxNum);

  // Ждем нажатия клавиши перед завершением программы
  readln;
end.

Эта программа сначала запрашивает у пользователя количество чисел (N). Затем она в цикле запрашивает N чисел от пользователя и находит минимальное и максимальное число среди них. Результат выводится на экран.

Помимо этого, программа ожидает нажатия клавиши перед завершением, чтобы окно консоли не закрылось сразу после вывода результатов.