Задача:

Разработайте программу, которая находит минимальное и максимальное значение в списке чисел. Pascal.

План:

• Алгоритм решения
• Код программы
• Примеры входных данных и ожидаемых результатов
• Объяснение кода программы
• Блок-схема

Алгоритм решения:

1. Инициализация:

   • Объявление динамического массива numbers для хранения чисел
   • Объявление переменных min, max, i и n

2. Ввод данных:

   • Запрос у пользователя количества элементов n
   • Установка размера массива numbers равным n
   • Ввод n чисел от пользователя и сохранение их в массиве numbers

3. Поиск минимального и максимального значений:

   • Инициализация min и max первым элементом массива numbers[0]
   • Цикл от 1 до n-1:
     • Если текущий элемент меньше min, обновить min
     • Если текущий элемент больше max, обновить max

4. Вывод результатов:

   • Вывод найденного минимального значения min
   • Вывод найденного максимального значения max

5. Ожидание ввода пользователя перед завершением программы

Код программы на языке Pascal:

program MinMaxFinder;

var
  numbers: array of integer;
  min, max, i, n: integer;

begin
  write('Enter the number of elements: ');
  readln(n);
  
  SetLength(numbers, n);
  
  writeln('Enter ', n, ' numbers:');
  for i := 0 to n - 1 do
  begin
    readln(numbers[i]);
  end;
  
  min := numbers[0];
  max := numbers[0];
  
  for i := 1 to n - 1 do
  begin
    if numbers[i] < min then
      min := numbers[i];
    if numbers[i] > max then
      max := numbers[i];
  end;
  
  writeln('Minimum value: ', min);
  writeln('Maximum value: ', max);
  
  readln;
end.

Примеры входных данных и ожидаемых результатов:

Input:
Enter the number of elements: 5
Enter 5 numbers:
10
5
8
15
3

Output:
Minimum value: 3
Maximum value: 15

---

Input:
Enter the number of elements: 3
Enter 3 numbers:
-7
0
4

Output:
Minimum value: -7
Maximum value: 4

---

Input:
Enter the number of elements: 1
Enter 1 numbers:
42

Output:
Minimum value: 42
Maximum value: 42

---

Input:
Enter the number of elements: 4
Enter 4 numbers:
100
100
100
100

Output:
Minimum value: 100
Maximum value: 100

Объяснение кода программы:

1. Объявление переменных:

   var
     numbers: array of integer;
     min, max, i, n: integer;

   Объявляются динамический массив numbers и целочисленные переменные min, max, i (счетчик) и n (количество элементов).

2. Ввод количества элементов:

   write('Enter the number of elements: ');
   readln(n);

   Пользователю предлагается ввести количество элементов, которое сохраняется в переменную n.

3. Установка размера массива:

   SetLength(numbers, n);

   Функция SetLength устанавливает размер динамического массива numbers равным n.

4. Ввод чисел в массив:

   writeln('Enter ', n, ' numbers:');
   for i := 0 to n - 1 do
   begin
     readln(numbers[i]);
   end;

   Цикл for используется для ввода n чисел в массив numbers.

5. Инициализация min и max:

   min := numbers[0];
   max := numbers[0];

   Переменные min и max инициализируются первым элементом массива.

6. Поиск минимума и максимума:

   for i := 1 to n - 1 do
   begin
     if numbers[i] < min then
       min := numbers[i];
     if numbers[i] > max then
       max := numbers[i];
   end;

   Цикл for проходит по остальным элементам массива, обновляя min и max при нахождении меньшего или большего значения соответственно.

7. Вывод результатов:

   writeln('Minimum value: ', min);
   writeln('Maximum value: ', max);

   Выводятся найденные минимальное и максимальное значения.

8. Ожидание ввода перед завершением:

   readln;

   Программа ожидает нажатия клавиши Enter перед завершением.

Блок-схема:

Нажмите на изображение, чтобы увеличить

Блок-схема к задаче: Разработайте программу, которая находит минимальное и максимальное значение в списке чисел.