Помогите решить

[virginia]

Помогите решить

Пусть даны натуральные числа k, n, вещественные числа a1,a2,...,akn. Получите max (min(a(1)+a(2)+...+a(k)),min(a(k+1)+a(k+2)+. ..+a(2k)),...,min(a(k(n-1)+1)+...+a(kn)).
язык delphi

 

[Vladimir_S]

Не понял, как может быть
min(a(1)+a(2)+...+a(k)),
т.е минимум от фиксированной суммы? Может быть
min(a(1), a(2), ..., a(k))?

 

[virginia]

Ой ,не правильно напечатала.получите max(min(a1,a2,...,ak),min(ak+1+ak+2+...+a2k),...,min(ak(n-1)+1+...+akn))

 

[Vladimir_S]

max(min(a1,a2,...,ak),min(ak+1+ak+2+...+a2k),...,m in(ak(n-1)+1+...+akn))

И опять - ой! Потому что должно быть
max(min(a1,a2,...,ak),min(ak+1,ak+2,...,a2k),...,min(ak(n-1)+1, ...,akn))
Так?
Теперь вот что. Всё, что могу предложить - решение на Паскале. Если справитесь самостоятельно с Дельфийскими обвесками (модулями, формами, вводом-выводом и т.п.) то - пожалуйста. Если нет, то подождем: может, кто-нибудь из дельфистов возьмется.

 

[virginia]

То что после а идет это индекс а....да на паскале пойдет

 

[Vladimir_S]

а....да на паскале пойдет

Ну раз пойдет, то - пожалуйста:

CONST
 k=5;
 n=7;
VAR
 a:Array[1..k*n] of Real;
 Min:Array[1..n] of Real;
 Max:Real;
 i,j:Integer;

BEGIN
 Randomize;
 For i:=1 to k*n do
  begin
   a[i]:=random*100;
   write(a[i]:8:3);
   if (i mod k)=0 then writeln;
  end;
 writeln;
 writeln;

 For i:=1 to n do
  begin
   Min[i]:=a[(i-1)*k+1];
   For j:=2 to k do
    If a[(i-1)*k+j]<Min[i] then Min[i]:=a[(i-1)*k+j];
   write(Min[i]:8:3);
  end;
 writeln;
 writeln;

 Max:=Min[1];
 For i:=2 to n do
  If Min[i]>Max then Max:=Min[i];
 Writeln(Max:8:3);

 Readln
END.

Конечно, если будете переделывать в Дельфи, то все экранные выводы придется убрать, на крайний случай можно использовать файловые, если возникнут трудности с полями форм.

 

[virginia]

Огромное спасибо)

 

[Vladimir_S]

Огромное спасибо)

Да не за что...