Question

50баллов. Паскаль. С клавиатуры введены 6 целых чисел. составьте программу, которая найдет из них наибольшее из них. использовать процедуру поиска большего из двух (БИД).

Answer 1

//PascalABC.NET 3.4.2

var x, max: integer;

procedure my_max(x1, x2: ^integer);

begin

 if (x2^ > x1^) then x1^ := x2^;

end;

begin

 loop 6 do

 begin

   x := readinteger();

   my_max(@max, @x);

 end;

 write(max);

end.

Answer 2

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

pascalCopy code
program FindMaxNumber;

// Процедура для нахождения большего из двух чисел (БИД)
procedure FindBigger(var a, b: integer; var bigger: integer);
begin
  if a > b then
    bigger := a
  else
    bigger := b;
end;

var
  numbers: array[1..6] of integer;
  i, maxNumber: integer;

begin
  // Вводим 6 целых чисел с клавиатуры
  writeln('Введите 6 целых чисел:');
  for i := 1 to 6 do
  begin
    write('Число ', i, ': ');
    readln(numbers[i]);
  end;

  // Находим наибольшее число с помощью процедуры БИД
  maxNumber := numbers[1];
  for i := 2 to 6 do
    FindBigger(maxNumber, numbers[i], maxNumber);

  // Выводим результат
  writeln('Наибольшее число: ', maxNumber);
end.

Программа позволяет пользователю ввести 6 целых чисел с клавиатуры, а затем с помощью процедуры поиска большего из двух (БИД) находит наибольшее из них и выводит результат.