Question

Даны 3 числа вывести наибольшее и наименьшее Help me please должно выйти что то такое var a,b,c,min,max:integer; begin writeln('Введите три числа:'); readln(a,b,c); max:=a; if b>max then max:=b; if c>max then max:=c; min:=a; if b if c writeln('Минимальное: ',min); writeln('Максимальное: ',max); end. я просо не уверен что оно так написано :/

Answer 1

Ваш код написан с некоторыми ошибками и недочетами. Вот исправленный вариант:

program FindMinMax;

var
  a, b, c, min, max: integer;

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

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

// Находим минимальное число
  min := a;
  if b < min then
    min := b;
  if c < min then
    min := c;

writeln('Минимальное: ', min);
  writeln('Максимальное: ', max);
end.

Исправления:

1. Добавлено объявление программы (`program FindMinMax;`). 2. Исправлены операторы сравнения в условиях: `>` заменено на `<` для поиска минимального значения. 3. Добавлены необходимые операторы `if` для правильной проверки минимального значения.