Паскаль, массивы, наработки есть.

[Otre4eHHbIu]

 begin
 y:= sqrt(exp(x[i])) - sqr(x[i]);
 if (i=1) or (y>max) then
  begin
  max := y;
  nmax := i;
  end;
 writeln(y:5:2);
 end;

все-таки появился вопрос, вы не указывали максимум, то есть если его не задавать (max:= 5 скажем), то он автоматически принимается за 0?

[Sazary]

вы не указывали максимум, то есть если его не задавать (max:= 5 скажем), то он автоматически принимается за 0?

Нет. Этот случай обрабатывается здесь:

 if (i=1) or (y>max) then

то есть при i=1 (когда цикл только начался и максимума еще нет) мы присваиваем максимуму первый элемент.

[Otre4eHHbIu]

Сообщение от Sazary

Нет. Этот случай обрабатывается здесь:

 if (i=1) or (y>max) then

то есть при i=1 (когда цикл только начался и максимума еще нет) мы присваиваем максимуму первый элемент.

для меня очень интересный и познавательный момент, учту в будущем, еще раз огромное спасибо.

[Doholyan]

Сообщение от Sazary

random, если не указывать аргумент, возвращает случайное вещественное число от 0 до 1.
Ну еще домножил на 7. Просто так )

поясни...для чего умножать на "7"....если можно просто задать переменную случайного числа...с другим диапазонов?

[Sazary]

поясни...для чего умножать на "7"....если можно просто задать переменную случайного числа...с другим диапазонов?

Да просто так я на 7 умножил ) Не хотите - не умножайте )