Question

Задача для Pascal. Дано 3 числа. Найти произведение максимального и среднего.

Answer 1

var

 A: array [1..3] of Integer;

 i, imin, imax, imid: Integer;

begin

   Write('Введите 3 целых различных числа: ');

   Readln(A [1], A [2], A [3]);

   if (A [1] = A [2]) or (A [2] = A [3]) or (A [1] = A [3]) then begin

     Writeln ('Имеются одинаковые числа!');

     Exit;

   end;  

   imin := 1;

   imax := 1;

   for i := 2 to 3 do begin

     if A [i] < A [imin] then

       imin := i;

     if A [i] > A [imax] then

       imax := i;

   end;

   for i := 1 to 3 do begin

     if (i <> imin) and (i <> imax) then

       imid := i;

   end;

   Writeln ('Произведение максимального и среднего числа = ' + IntToStr (A [imax] * A [imid]));

end;

Answer 2

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

pascalCopy code
program MaxMiddleProduct;

var
  a, b, c: Integer;
  max, middle, product: Integer;

begin
  // Вводим три числа
  writeln('Введите три числа:');
  readln(a, b, c);

  // Находим максимальное число
  if (a >= b) and (a >= c) then
    max := a
  else if b >= c then
    max := b
  else
    max := c;

  // Находим среднее число
  if ((a >= b) and (a <= c)) or ((a >= c) and (a <= b)) then
    middle := a
  else if ((b >= a) and (b <= c)) or ((b >= c) and (b <= a)) then
    middle := b
  else
    middle := c;

  // Находим произведение максимального и среднего числа
  product := max * middle;

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

end.

Программа попросит вас ввести три числа, а затем найдет максимальное и среднее число и выведет их произведение.