SaveText.Ru

Без имени
  1. program shambala;
  2. var n,x,max,mpr,i:integer;
  3. a:array[1..8] of integer;
  4. begin
  5.   readln(n);
  6.   for i:=1 to 8 do
  7.   begin
  8.     readln(x);
  9.     a[i]:=x;
  10.   end;
  11.   max:=0;
  12.   mpr:=0;
  13.   for i:=9 to n do
  14.   begin
  15.     readln(x);
  16.     if a[i mod 8]>max then
  17.     max:=a[i mod 8];
  18.     if x*max>mpr then
  19.     mpr:=x*max;
  20.     a[i mod 8]:=x;
  21.   end;
  22.   writeln(mpr);
  23. end.

Share with your friends:

Распечатать