Даны вещественные массивы А,В и С, содержащие по 50 элементов. Вычислить

[dmitriy20104]

Ребят, помогите . У меня есть алгоритм решения задачи, а код в голову не лезет...
Вот задача:
Даны вещественные массивы А,В и С, содержащие по 50 элементов. Вычислить
ti=min(Bi)/max(Ai)+max(Ci)/min(Bi+Ci) при min(Ai) < max(Bi),
ti=max(Bi+Ci)+min(Ci) иначе
Вот алгоритм:
Составить процедуру создания массива и процедуру нахождения мин и мкс в массиве. Вызвать их по три раза с фактическими параметрами. Найденные значения мин и макс сравнить и подставь в формулы.

[Алексей_2012]

а как массивы заполнять, с клавиатуры или рандомно?

[Алексей_2012]

Слушай, ну вот код, массивзаполняется с клавиатуры

program forum;
uses crt;
var
a,b,c:array [1..50] of real;
max1,max2,max3,min1,min2,min3,ti:real;
m,n,k,i,j,l:byte;
procedure BBOD;
begin
write('BBEDITE KOLLICHESTBO ELEMENTOB B MASSIB "A"...');
readln(m);
write('BBEDITE KOLLICESTBO ELEMENTOB B massiB "b"...');
readln(n);
write('BBEDITE KOLLICHESTBO ELEMENTIB B massiBE "c"...');
readln(k);
clrscr;
writeln('BBEDITE ELEMENTbI MASSIBA A') ;
for i:=1 to m do
begin
write('BBEDITE ',i,'-element');
readln(a[i]);
end;
clrscr;
writeln('BBEDITE ELEMENTbI MASSIBA b');
for j:=1 to n do
begin
write('BBEDITE ',j,'-element');
readln(b[j]);
end;
clrscr;
writeln('BBEDITE ELEMENTbI MASSIBA C');
for l:=1 to k do
begin
write('BBEDITE ',l,'-element');
readln(c[l]);
end;
clrscr;
end;
procedure max;
begin
max1:=a[i];
max2:=b[j];
max3:=c[l];
for I:=1 to m do
begin
if a[i]>=max1 then
begin
max1:=a[i]
end;
end;
for j:=1 to n do
begin
if b[j]>=max2 then
begin
max2:=b[j];
end;
end;
for l:=1 to k do
begin
if c[l]>=max3 then
begin
max3:=c[l];
end;
end;
end;
procedure min;
begin
min1:=a[i];
min2:=b[j];
min3:=c[l];
for I:=1 to m do
begin
if a[i]<min1 then
begin
min1:=a[i];
end;
end;
for j:=1 to n do
begin
if b[j]<min2 then
begin
min2:=b[j];
end;
end;
for l:=1 to k do
begin
if c[l]<min3 then
begin
min3:=c[l];
end;
end;
end;
begin
clrscr;
BBOD;
MAX;
min;
if min1<max2 then
begin
ti:=min2/max1+max3/min2+min3;
end
else
ti:=(max2+max3)+min3;
writeln('OTBET=',ti:2:3);
writeln('HA}|{MITE ENTER DLYA BbIXODA...');
readln;
end.

Вот с процедурами если надо, хотя без них было бы лучше, писать меньше

[dmitriy20104]

Алексей, спасибо! Массивы надо было рандомно, но это я уже сам исправлю. И надо с процедурами (тема процедуры и функции). Спасибо!

[ViktorR]

Внимательно читаем:

Даны вещественные массивы А,В и С, содержащие по 50 элементов. Вычислить
ti=min(Bi)/max(Ai)+max(Ci)/min(Bi+Ci) при min(Ai) < max(Bi),
ti=max(Bi+Ci)+min(Ci)

Обратите внимание, что

ti=max(Bi+Ci)+min(Ci)

не то-же, что:

ti:=(max2+max3)+min3

.

max(Bi+Ci), min(Bi+Ci) - это надо вначале сложить элементы массивов, а потом искать max(Bi+Ci) и min(Bi+Ci).

Как-то так получается ...

[Алексей_2012]

ViktoR, по формуле 2 нужно к максимальному элементу в массиве "В" прибавить максимальный элемент массива "С" затем к полученной сумме прибавить минимальный элемент "С", по моей формуле так и получается, так что обе формулы эквивалентны

[BDA]

Соглашусь с ViktorR. Эти формулы не эквивалентны.
Например:
B: 1 2 3
C: -1 -2 -3
max(Bi+Ci)=0
min(Bi+Ci)=0
maxBi=3
maxCi=-1
maxBi+maxCi=2
minBi=1
minCi=-3
minBi+minCi=-2
Мне непонятно наличие буквы i около T.

[Вадим Мошев]

Мне непонятно наличие буквы i около T.

Может, T - это тоже массив?

[BDA]

Сообщение от Вадим Мошев

Может, T - это тоже массив?

Такая мысль меня посещала, но тогда теряется смысл поиска минимума/максимума среди ОДНОГО элемента массива.
В общем, ждем комментариев ТС, если его еще интересует данная тема.

[Ev[G]eN]

const
  Size = 50;
type
  TArr = Array[1..Size] of Integer;
var
  FirstArr, SecondArr, ThirdArr: TArr;
  FirstMax, SecondMax, ThirdMax: Integer;
  FirstMin, SecondMin, ThirdMin: Integer;
  Res: Real;

procedure Create_Array(var Arr: TArr; Size: Integer);
var
  i: Byte;
begin
  Randomize;
  for i:=1 to Size do
  begin
    Arr[i]:=Random(Size)-15;
    write(Arr[i], ' ');
  end;
  writeln;
end;

procedure Maximal_Minimal_of_Array(Arr: TArr; var Maximal, Minimal: Integer);
var
  i, MaxArr, MinArr: Byte;
begin
  MaxArr:=1; MinArr:=1;
  for i:=1 to Size do
    if Arr[i] > Arr[MaxArr] then
      MaxArr:=i
    else if Arr[i] < Arr[MinArr] then
      MinArr:=i;
  Maximal:=Arr[MaxArr]; Minimal:=Arr[MinArr];
end;

begin
  writeln('Первый массив: ');
  Create_Array(FirstArr, Size);
  Maximal_Minimal_of_Array(FirstArr, FirstMax, FirstMin);
  writeln('Максимальный элемент: ', FirstMax, '; Минимальный элемент: ', FirstMin);
  writeln('Второй массив: ');
  Create_Array(SecondArr, Size);
  Maximal_Minimal_of_Array(SecondArr, SecondMax, SecondMin);
  writeln('Максимальный элемент: ', SecondMax, '; Минимальный элемент: ', SecondMin);
  writeln('Третий массив: ');
  Create_Array(ThirdArr, Size);
  Maximal_Minimal_of_Array(ThirdArr, ThirdMax, ThirdMin);
  writeln('Максимальный элемент: ', ThirdMax, '; Минимальный элемент: ', ThirdMin);
  if FirstMin < SecondMax then
    Res:=SecondMin / FirstMax + ThirdMax / (SecondMin + ThirdMin)
  else Res:=(SecondMax + ThirdMax) + ThirdMin;
  writeln('Результат: ', Res:0:2);
end.