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.
<u>Тестовое решение:</u>
Введите через пробел 8 чисел
4 -3 5 4 3 2 1 0
Максимальное значение 20 достигается как 4*a[3]
В клеточку, в линейку, в кружочек(да, такие есть)