Question

Дано дві трійки дійсних чисел. У кожній трійці всі числа різні. Знайдіть середнє арифметичне максимальних чисел кожної трійки. написать программу на паскале

Answer 1

Program HelloWorld;var a1,b1,c1,a2,b2,c2:integer; s:double;begin    writeln('First');    a1:=5;    b1:=6;    c1:=1;    writeln(a1,'-',b1,'-',c1);    writeln('Second');    a2:=3;    b2:=2;    c2:=8;    writeln(a2,'-',b2,'-',c2);    if(b1>a1)and(b1>c1) then a1:=b1    else    if (c1>a1) then a1:=c1;    if(b2>a2)and(b2>c2) then a2:=b2    else    if (c2>a2) then a2:=c2;    s:=(a1+a2)/2;    writeln(s:0:2);end.

Answer 2

Щоб знайти середнє арифметичне максимальних чисел у двох трійках дійсних чисел, спочатку потрібно знайти максимальні числа в кожній трійці, а потім обчислити їх середнє арифметичне.

Ось програма на мові Паскаль, яка вирішує цю задачу:

program AverageOfMaxNumbers;

var
  firstTriple: array[1..3] of real;
  secondTriple: array[1..3] of real;
  maxNumber1, maxNumber2: real;
  average: real;

begin
  // Введення першої трійки чисел
  writeln('Введіть першу трійку чисел:');
  for var i := 1 to 3 do
  begin
    write('Число ', i, ': ');
    readln(firstTriple[i]);
  end;

// Введення другої трійки чисел
  writeln('Введіть другу трійку чисел:');
  for var i := 1 to 3 do
  begin
    write('Число ', i, ': ');
    readln(secondTriple[i]);
  end;

// Знаходження максимального числа в першій трійці
  maxNumber1 := firstTriple[1];
  for var i := 2 to 3 do
  begin
    if firstTriple[i] > maxNumber1 then
      maxNumber1 := firstTriple[i];
  end;

// Знаходження максимального числа в другій трійці
  maxNumber2 := secondTriple[1];
  for var i := 2 to 3 do
  begin
    if secondTriple[i] > maxNumber2 then
      maxNumber2 := secondTriple[i];
  end;

// Обчислення середнього арифметичного максимальних чисел
  average := (maxNumber1 + maxNumber2) / 2;

// Виведення результату
  writeln('Середнє арифметичне максимальних чисел: ', average);
end.

Ця програма спочатку запитує користувача про першу трійку чисел, а потім про другу трійку чисел. Потім вона знаходить максимальне число в кожній трійці за допомогою циклу `for`. Нарешті, вона обчислює середнє арифметичне максимальних чисел і виводить його на екран.

Будь ласка, зверніть увагу, що ця програма припускає, що користувач введе лише числа і не містить перевірок на правильність введених даних. В реальному програмі слід додати перевірки на правильність введених даних та обробку помилок.