Question

Прошу о помощи!!!!!!!!!!!!!!!НУжна программа по паскалю.Что бы решить эту задачу!!!!!!!!!!!!!! Даны 3 вещественных числа. Используя только 2 неполных условных оператора, определить:  максимальное значение заданных чисел  минимальное значение заданных чисел

Answer 1

//PascalABC.Net 3.2
begin
var a:=readarrreal ('Вводите: ', 3);
print('Макс.', a.max, '; Мин.', a.min);
end.

Answer 2

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

program max_min_values;

var
  num1, num2, num3, max_val, min_val: real;

begin
  writeln('Введите первое число: ');
  readln(num1);
  
  writeln('Введите второе число: ');
  readln(num2);
  
  writeln('Введите третье число: ');
  readln(num3);
  
  { Инициализируем переменные значениями первого числа }
  max_val := num1;
  min_val := num1;
  
  { Проверяем второе число }
  if num2 > max_val then
    max_val := num2
  else if num2 < min_val then
    min_val := num2;
  
  { Проверяем третье число }
  if num3 > max_val then
    max_val := num3
  else if num3 < min_val then
    min_val := num3;
  
  { Выводим результаты }
  writeln('Максимальное значение: ', max_val);
  writeln('Минимальное значение: ', min_val);
end.

В данной программе мы объявляем переменные `num1`, `num2` и `num3` для ввода трех вещественных чисел пользователем. Затем инициализируем переменные `max_val` и `min_val` значениями первого числа.

Затем с помощью условных операторов `if` и `else if` проверяем значения второго и третьего чисел, и в случае, если одно из них больше текущего максимального значения (`max_val`) или меньше текущего минимального значения (`min_val`), обновляем соответствующую переменную.

В конце программы выводим на экран найденные значения максимального и минимального чисел.