Question

Вводятся A, B, C, D. Найти среднее арифметическое максимального и минимального. Pascal

Answer 1

===== PascalABC.NET 3.6 =====

begin

 var a, b, c, d: integer;

 Read(a, b, c, d);

 Print((Max(a, b, c, d) + Min(a, b, c, d)) / 2)

end.

Answer 2

var

 a, n, max, min, i, sum: integer;

begin

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

 Readln(a);

 Max := a;

 Min := a;

 for i := 1 to 3 do

 begin

   Read(a);

   sum += a;

   if a > Max then Max := a;

   if a < Min then Min := a;

 end;

 Writeln('Максимальное: ', Max);

 Writeln('Минимальное: ', Min);

 Writeln('Среднее: ', sum / 4);

end.

Тестовое решение

Введите 4 числа

243

20

10

231

Максимальное: 243

Минимальное: 10

Среднее: 65.25

Answer 3

Для нахождения среднего арифметического максимального и минимального чисел из четырех заданных значений A, B, C и D в Pascal, можно воспользоваться следующим кодом:

pascalCopy code
program AverageMinMax;

var
  A, B, C, D: Integer;
  Max, Min: Integer;
  Average: Real;

begin
  // Ввод значений A, B, C и D
  Write('Введите значение A: ');
  Readln(A);
  
  Write('Введите значение B: ');
  Readln(B);
  
  Write('Введите значение C: ');
  Readln(C);
  
  Write('Введите значение D: ');
  Readln(D);
  
  // Нахождение максимального и минимального чисел
  Max := A;
  Min := A;
  
  if B > Max then
    Max := B;
  if C > Max then
    Max := C;
  if D > Max then
    Max := D;
  
  if B < Min then
    Min := B;
  if C < Min then
    Min := C;
  if D < Min then
    Min := D;
  
  // Нахождение среднего арифметического максимального и минимального чисел
  Average := (Max + Min) / 2;
  
  // Вывод результата
  writeln('Максимальное число: ', Max);
  writeln('Минимальное число: ', Min);
  writeln('Среднее арифметическое максимального и минимального: ', Average);
end.

Скопируйте код в среду разработки Pascal (например, Lazarus) и запустите программу. Затем введите значения A, B, C и D, и программа выдаст максимальное и минимальное числа, а также среднее арифметическое максимального и минимального.