Question

В массиве из 6 элементов, заданных с клавиатуры, найдите произведение наибольшего и наименьшего значений (pascal abc)

Answer 1

Program mathlover12;

const

 n = 6; {Количество элементов массива}

var  

 a:array[1..n] of integer;

s:string;

i,min,max: integer;

begin

 s:='**** -=Alphaeus=- ****';

 for i:=1 to 22 do begin write(s[i]); sleep(42) end;

{вводим элементы массива}

 writeln; writeln('Введите ',n,' чисел:');

 for i:=1 to n do read(a[i]);

{Ищем min и max}

min:=a[1];

max:=a[1];

 for i:=2 to n do

   begin

     if min>a[i] then min:=a[i];

     if max<a[i] then max:=a[i];

   end;

{Выводим произведение  min и max}

 writeln; writeln;

 writeln('Произведение min и max равнo ',min*max);

end.

Answer 2

Для решения данной задачи нам необходимо считать с клавиатуры 6 чисел и сохранить их в массиве. Затем мы можем использовать две переменные: одну для хранения наибольшего значения, а вторую для хранения наименьшего значения.

Инициализируем переменную для наибольшего значения со значением, меньшим всех возможных значений (например, наименьшее целое число, которое можно представить в языке программирования). Аналогично инициализируем переменную для наименьшего значения со значением, большим всех возможных значений (например, наибольшее целое число).

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

В конце прохождения по всем элементам массива мы будем иметь наибольшее и наименьшее значения. Затем мы можем вычислить их произведение и вывести результат на экран.

Пример кода на языке Pascal ABC:

program MaxMinProduct;

var
  arr: array[1..6] of Integer;
  i, maxNum, minNum, product: Integer;

begin
  // ввод элементов массива с клавиатуры
  writeln('Введите 6 элементов массива:');
  for i := 1 to 6 do
    readln(arr[i]);

// инициализация переменных для наибольшего и наименьшего значений
  maxNum := -32767;  // наименьшее целое число
  minNum := 32767;   // наибольшее целое число

// поиск наибольшего и наименьшего значений
  for i := 1 to 6 do
  begin
    if arr[i] > maxNum then
      maxNum := arr[i];
    if arr[i] < minNum then
      minNum := arr[i];
  end;

// вычисление произведения наибольшего и наименьшего значений
  product := maxNum * minNum;

// вывод результата
  writeln('Произведение наибольшего и наименьшего значений: ', product);
end.

В данном примере программа сначала запрашивает 6 элементов массива с клавиатуры. Затем она находит наибольшее и наименьшее значения в массиве и вычисляет их произведение. Наконец, программа выводит результат на экран.