Дан ряд чисел. Найти наибольшее из чисел 2 а1, 3 а2, 4 а3, ..., 9 а8.

Const

n = 8;

var

a: array[1 ... n] of integer;

i, t, im, max: integer;

begin

Writeln ('Введите через пробел ', n, ' чисел');

max : = - 32768;

for i : = 1 to n do

begin

Read (t);

a[i] : = t; t : = (i + 1) * t;

if max < t then begin max : = t; im : = i end;

end;

Writeln ('Максимальное значение ', max, ' достигается как ', im + 1, '*a[', im, ']')

end.

Тестовое решение:

Введите через пробел 8 чисел

4 - 3 5 4 3 2 1 0

Максимальное значение 20 достигается как 4*a[3]