Question

Доброй ночи) Составить алгоритм (блок схему) и написать программу нахождения суммы минимального и максимального чисел в одномерном массиве!Массив заполнен случайными числами!всего в массиве 30 элементов!Ну язык Pascal))))))ЗАРАНЕЕ СПАСИБИЩЕ!

Answer 1

var

       a: array [1..30] of Integer;

       min, max: Word;

       i: Byte;

begin

       Randomize;

       

       for i := 1 to 30 do

               a[i] := Random (20000);

       

       max := a[1];

       min := a[1];

       

       for i := 2 to 30 do begin

               if a[i] > max then

                       max := a[i];

               if a[i] < min then

                       min := a[i]

       end;

       Write (min + max)              

end.    

Есть приложение FlowChart для создания блок-схем из кода, я его и использовал.    

Answer 2

Доброй ночи! Конечно, я могу помочь вам с этим. Вот алгоритм и программа на языке Pascal для нахождения суммы минимального и максимального чисел в одномерном массиве из 30 элементов:

Алгоритм:

1. Создать массив из 30 элементов, заполненный случайными числами.
2. Инициализировать переменные minNumber и maxNumber значением первого элемента массива.
3. Пройти по всем элементам массива:
   • Если текущий элемент меньше minNumber, обновить значение minNumber.
   • Если текущий элемент больше maxNumber, обновить значение maxNumber.
4. Вычислить сумму minNumber и maxNumber.
5. Вывести полученную сумму.

Программа на Pascal:

pascalCopy code
program MinMaxSum;
uses crt;

const
  arraySize = 30;

var
  numbers: array[1..arraySize] of Integer;
  minNumber, maxNumber, sum: Integer;
  i: Integer;

begin
  randomize; // Инициализация генератора случайных чисел

  // Заполнение массива случайными числами
  for i := 1 to arraySize do
    numbers[i] := random(100); // Генерация случайного числа от 0 до 99

  // Инициализация minNumber и maxNumber значением первого элемента массива
  minNumber := numbers[1];
  maxNumber := numbers[1];

  // Поиск минимального и максимального чисел
  for i := 2 to arraySize do
  begin
    if numbers[i] < minNumber then
      minNumber := numbers[i];
    if numbers[i] > maxNumber then
      maxNumber := numbers[i];
  end;

  // Вычисление суммы минимального и максимального чисел
  sum := minNumber + maxNumber;

  // Вывод результата
  writeln('Минимальное число: ', minNumber);
  writeln('Максимальное число: ', maxNumber);
  writeln('Сумма минимального и максимального чисел: ', sum);

  readln;
end.

Скопируйте этот код в среду разработки Pascal, например, в Lazarus, и выполните программу. Она создаст массив из случайных чисел, найдет минимальное и максимальное числа, а затем вычислит и выведет сумму этих чисел.