задача

[солнышко777]

Даны две тройки вещественных чисел. В каждой тройке все числа различные. Найти среднее арифметическое средних чисел каждой тройки (средним назовем такое число в тройке, которое больше наименьшего из чисел данной тройки, но меньше наибольшего)

заранее спасибо и буду благодарна вам очень сильна

[XeruH]

Ну и в чем проблема?
Как пыталась? Что не получилось? Где ошибка? В конце концов на каком языке программирования тебе это надо?

Алгоритм простой
1. Ищешь среднее в 1 тройке
2. Ищешь среднее во 2 тройке
3. Находишь сумму средних и делишь на 2

[солнышко777]

это решаетсо в паскале(

[DRAgon™]

так сойдет?С REAL тогда уже сама зделаешь.

uses crt;
const s=2;
const a:Array [1..3] of Integer = (2,4,7);
const b:Array [1..3] of Integer = (1,3,5);
var i,j,sum,min,max,c,c1:Integer;
sr:real;
begin
sum:=0;
max:=1;
min:=1;
Writeln(' 1 Massiv:');
for i:=1 to 3 do begin
Write(a[i]:4);
end;
Writeln;
Writeln(' 2 Massiv:');
for j:=1 to 3 do begin
Write(b[j]:4);
end;
Writeln;
if a[i] > a[max] then max:=i;
if a[i] < a[min] then min:=i;
c:=a[max]-a[min];
Writeln;
Writeln('1 massiv:Maks - ',a[max],' Min - ',a[min]);
Writeln('Среденее число  - ',c);
Writeln;
if b[i] > a[max] then max:=i;
if b[i] < a[min] then min:=i;
c1:=b[max]-b[min];
Writeln;
Writeln('2 massiv:Maks - ' , b[max],' Min - ',b[min]);
Writeln('Среденее число  - ',c1);
Writeln;
sum:=sum+c+c1;
sr:=sum/s;
Writeln;
Writeln('среднеорифмитическое -   ',sr);

end.