21 lines
370 B
ObjectPascal
21 lines
370 B
ObjectPascal
var
|
|
a: array[1..30] of integer;
|
|
i, k, ki, kmax, kimax: integer;
|
|
|
|
begin
|
|
for i := 1 to 30 do begin a[i] := random(10);write(a[i], ' '); end;
|
|
writeln();
|
|
kmax := 0;
|
|
kimax := 0;
|
|
for i := 1 to 29 do
|
|
begin
|
|
ki := i;
|
|
k := a[i] + a[i + 1];
|
|
if k > kmax then
|
|
begin
|
|
kmax:=k;
|
|
kimax:=ki;
|
|
end;
|
|
end;
|
|
writeln(kimax, ':= ', kmax);
|
|
end. |