Question

Найти максимум из трёх чисел, числа рандомные от 0 до 20, предусмотреть случай, что числа равны (нужно паскале написать помогите пожалуйста)

Answer 1

Function Max(a,b: integer): integer;begin  if a > b then    Max := a  else    Max := b;end;


Использование:
WriteLn(Max(a, Max(b, c)));

Answer 2

Для нахождения максимума из трёх случайных чисел от 0 до 20 в Pascal можно использовать следующий код:

pascalCopy code
program FindMax;
var
  num1, num2, num3, max: Integer;

begin
  // Генерируем случайные числа от 0 до 20
  Randomize;
  num1 := Random(21);
  num2 := Random(21);
  num3 := Random(21);
  
  // Выводим сгенерированные числа
  WriteLn('Сгенерированные числа:');
  WriteLn('Число 1: ', num1);
  WriteLn('Число 2: ', num2);
  WriteLn('Число 3: ', num3);
  
  // Находим максимум
  if (num1 >= num2) and (num1 >= num3) then
    max := num1
  else if num2 >= num3 then
    max := num2
  else
    max := num3;
  
  // Выводим результат
  WriteLn('Максимум: ', max);
end.

Этот код определяет три случайных числа от 0 до 20, затем находит максимальное из них, и выводит сгенерированные числа и результат - максимум из трёх.