задача

[солнышко777]

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

спасибо зарание

[DRAgon™]

Тва* ма** яж писал уже эту задачу,слепые что ли?

[XeruH]

Был же уже точно такой же вопрос!?!

[XeruH]

Держи.

program MyProg;

var
  i: Integer;
  max, min, sr1, sr2, sr:real;
  Arr1, Arr2: array [1..3] of real;

begin
  sr:=0;
  sr1:=0;
  sr2:=0;
  Write(' Vvedite 3 pervyx chisla: ');
  readln(Arr1[1], Arr1[2], Arr1[3]);
  Write(' Vvedite 3 vtoryh chisla: ');
  readln(Arr2[1], Arr2[2], Arr2[3]);

  Write(' 1 troyka chisel: ');
  for i:=1 to 3 do begin
    Write(Arr1[i]:10:4);
  end;
  Writeln;
  Write(' 2 troyka chisel:');
  for i:=1 to 3 do begin
    Write(Arr2[i]:10:4);
  end;
  Writeln;

  min:=0;
  max:=0;
  for i:=1 to 3 do
  begin
    if min > Arr1[i] then min:=Arr1[i];
    if max < Arr1[i] then max:=Arr1[i];
    if (Arr1[i]>min) and (Arr1[i]<max) then sr1:=Arr1[i];
  end;
  Write('Srednee Chislo 1 troyki: ',sr1:10:4);
  Writeln;

  min:=0;
  max:=0;
  for i:=1 to 3 do
  begin
    if min > Arr2[i] then min:=Arr2[i];
    if max < Arr2[i] then max:=Arr2[i];
    if (Arr2[i]>min) and (Arr2[i]<max) then sr2:=Arr2[i];
  end;
  Write('Srednee Chislo 2 troyki: ',sr2:10:4);
  Writeln;

  sr:=(sr1+sr2)/2;

  Writeln;
  Writeln('Resultat: ', sr:10:4);
  Writeln('Press any key to continue.');

  readln;
end.

[Денис13]

Такое задание: создать программу, после запуска которой только через 10 секунд на экране отобразится форма?

[Serge_Bliznykov]

Денис13, вроде не первое сообщение на форуме, а правила форума так и не удосужились прочитать?!
Чего Вы со своим вопросом в чужую тему лезете?!
Создавайте свою. Там и спрашивайте.

(p.s. только спрашивайте понятно! "Создать программу... "? - это НЕ ВОПРОС!
Вот в чём Вам помощь нужна - не забудьте указать! И язык/среду программирования уточните. Форма в Delphi и форма в TurboPascal - это две большие разницы!!)