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

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

 

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.

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


Добавлено:

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.

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

 

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

 

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

 

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

 

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

 

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

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

 

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

 

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

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