Получите max

[Татьана]

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


P.S. то, что в скобках a(1)-это а-первое.

[Serge_Bliznykov]

Татьяна, а почему не указали (опять!), что Вам нужен язык программирования Паскаль?!

задача очень простая.
в чём у Вас сложность при её решении?

[Татьана]

Меня пугает то, что в скобках...

[Serge_Bliznykov]

почему пугает?
непонятно, что это означает?
или непонятно, как найти сумму K элементов массива (точнее, как записать это на языке Pascal?) ?

[Zer0]

а чего тут пугаться то?

var k,n,i,j:integer; sum,a,max:real;

begin
  readln(k,n);
  for i:=1 to n do begin
   sum:=0;
   for j:=1 to k do begin
   write ('a(',k*n,')='); readln (a);
   sum:=sum+a;
  end;
  if i=1 then max:=sum else
  if sum>max then max:=sum;
 end;
 writeln ('Max = ',max:0:3);
 readln;
end.

правда тут нет проверки на переполнение, но не думаю, что для учебной задачи это понадобится

[Татьана]

Я не понимаю, что значит то, что в скобках...

[Serge_Bliznykov]

Я не понимаю, что значит то, что в скобках...

смотрите, пусть даны N=4 и K=3
тогда мы имеем массив A1 A2 A3 A4 A5 A6 A7 A8 A9 A10 A11 A12 (двенадцать, т.к. количество элементов N*K = 4*3=12)
нужно брать из массива по три элемента (по три, потому что K=3)
и суммировать их поочерёдно.
Из полученных сумм нужно выбрать максимальную:
max( A1+A2+A3, A4+A5+A6, A7+A8+A9, A10+A11+A12 )

теперь понятно, что там в скобках?!

[Татьана]

Да)Спасибо)

А как ее с помощью массива решить????Не могу... что-то..не получается...