31 августа, 22:49

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

+2
Ответы (1)
  1. 1 сентября, 00:27
    0
    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]
Знаешь ответ?
Не уверен в ответе?
Найди верный ответ на вопрос ✅ «Дан ряд чисел. Найти наибольшее из чисел 2 а1, 3 а2, 4 а3, ..., 9 а8. ...» по предмету 📙 Информатика, а если ответа нет или никто не дал верного ответа, то воспользуйся поиском и попробуй найти ответ среди похожих вопросов.
Искать другие ответы