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

[Otre4eHHbIu]

program lvl5
const n= 10
type mas= array[1..n] of real;
var
x,y:mas;
max:real;
nmax,i,n:integer;
begin
writeln('x[i]= ');
randomize;
for i:= 1 to n do
x[i]:= random(1);
for i:= 1 to n do
y[i]:= sqrt(exp(x[i])) - sqr(x[i]);
max:= y[1];
nmax:= 1;
for i:= 2 to n do
if y[i]>max then begin
max:= y[i];
nmax:= i;
end;
for i:= 1 to n do begin
write(y[i]:2:1);
writeln;
end;
writeln;
writeln(nmax:2);
end.

Сама задача:
Дан массив А из N элементов. Определить номер наибольшего из значений выражений вида sqrt(exp(A[i])) - sqr(A[i]).


Выдает - Error 207: Invalid floating point operation

[Sazary]

К чему столько лишних циклов?

uses crt;
const n= 10;
type mas = array[1..n] of real;
var
x : mas;
max,y : real;
nmax,i : integer;

begin
clrscr;
randomize;
writeln('x[i]= ');

for i:= 1 to n do
 begin
 x[i]:= random*7;
 writeln(x[i]:5:2);
 end;

writeln('----------');
for i:= 1 to n do
 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;

writeln('---------');
writeln(nmax:2);
readln;
end.

[Otre4eHHbIu]

x[i]:= random*7;

эту строку объясни пожалуйста.

[Sazary]

x[i]:= random*7;

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

[Otre4eHHbIu]

y:= sqrt(exp(x[i])) - sqr(x[i]);

разве не y[i]?

[Sazary]

разве не y[i]?

Вы не заметили, что я изменил программу?

[Otre4eHHbIu]

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

все равно - Error 207: Invalid floating point operation

[Sazary]

все равно - Error 207: Invalid floating point operation

На какой строчке? У меня все работает.

[Otre4eHHbIu]

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

На какой строчке? У меня все работает.

он не выделяет ошибку, просто выдает ошибку...Compiling проходит нормально...

[Otre4eHHbIu]

Проблема решена, огромное спасибо, 2-ой раз помогаете)