Найти Номер Элемента В Последовательности

[tolyanl1985]

вводится последовательность из N вещественных чисел, найти последнее отрицательное число в последовательности!

Ребят помогите плиз решить

 

[Senset]

var i,n,num:integer;
r1,r2:real;
begin
writeln('N=?');readln;
num:=0;
r2:=0;
for i:=1 to n do
begin
readln(r1);
if r1<0 then
begin
num:=i;
r2:=r1;
end;
end;
if num=0 then writeln('Отрицательных чисел не было введено')
else writeln('Последнее отрицательное число: ',r2:0:4,' и оно является ',num,' введенным числом');
end.

 

[tolyanl1985]

var i,n,num:integer;
r1,r2:real;
begin
writeln('N=?');readln;
num:=0;
r2:=0;
for i:=1 to n do
begin
readln(r1);
if r1<0 then
begin
num:=i;
r2:=r1;
end;
end;
if num=0 then writeln('Отрицательных чисел не было введено')
else writeln('Последнее отрицательное число: ',r2:0:4,' и оно является ',num,' введенным числом');
end.

ошибки где-то не правильно считает


Добавлено:

var i,n,num:integer;
r1,r2:real;
begin
writeln('N=?');readln;
num:=0;
r2:=0;
for i:=1 to n do
begin
readln(r1);
if r1<0 then
begin
num:=i;
r2:=r1;
end;
end;
if num=0 then writeln('Отрицательных чисел не было введено')
else writeln('Последнее отрицательное число: ',r2:0:4,' и оно является ',num,' введенным числом');
end.

ошибки где-то не правильно считает

 

[Senset]

Ошибки? Где-то? вариантов два: посмотри на мой код) я там переменную переправил)) бугага

 

[tolyanl1985]

А сорри всё правильно! А как сделать чтобы числа вводились в строчку через пробел, а не каждый раз через Enter?

 

[Senset]

O_O какой кошмар...
замени readln() на read()

 

[tolyanl1985]

Огромное те спасибо!!! как те плюсик поставить?

 

[Senset]

Огромное те спасибо!!! как те плюсик поставить?

помоему новичкам нельзя так делать) но там где репутация под моей аватаркой...

 

[tolyanl1985]

Да, не нажимается!!! Всё равно огромное пасябки те

 

[Senset]

Да, не нажимается!!! Всё равно огромное пасябки те

Учись, студент! Счастливо)