Question

С клавиатуры вводится 3 числа, наибольшее увеличить на 3, меньшее на -3, среднее заменить на 0 паскаль

Answer 1

//PascalABC.NET 3.3,сборка 1611 от 06.01.2018//Внимание! Если программа не работает, обновите версию!begin

Writeln('Введите три числа' );

var mas:=ReadArrIneger(3);var a:=mas.Max;

var b:=mas.Min; var c:=0;

Writeln('max=',a+3,' ','min=',b-3,' ','sred=',c);

end.

Answer 2

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

1. Считать три числа с клавиатуры. 2. Найти наибольшее число среди трех введенных и увеличить его на 3. 3. Найти наименьшее число среди трех введенных и уменьшить его на 3. 4. Найти среднее значение из трех введенных и заменить его на 0. 5. Вывести полученные результаты.

Пример кода на языке Pascal:

program IncreaseDecreaseReplace;
var
  a, b, c, max, min, avg: integer;
begin
  // Ввод трех чисел с клавиатуры
  writeln('Введите три числа:');
  readln(a, b, c);

// Нахождение наибольшего числа и увеличение его на 3
  max := a;
  if b > max then
    max := b;
  if c > max then
    max := c;
  max := max + 3;

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

// Нахождение среднего значения и замена его на 0
  avg := (a + b + c) div 3;
  avg := 0;

// Вывод результатов
  writeln('Наибольшее число, увеличенное на 3:', max);
  writeln('Наименьшее число, уменьшенное на 3:', min);
  writeln('Среднее значение, замененное на 0:', avg);
end.

После выполнения данного кода, программа выведет наибольшее число, увеличенное на 3, наименьшее число, уменьшенное на 3, и среднее значение, замененное на 0.

Примечание: Данный код написан на языке Pascal. Если вам нужно решение на другом языке программирования, пожалуйста, уточните это.