Одномерный массив в Паскале

[integral]

Народ, подскажите ошибку в тексте программы, пожалуйста. Сообразить никак не могу

Задача такова. Нахождение номера наименьшего элемента в массиве заданной длины среди всех положительных элементов. Длина массива вводится с клавиатуры. Печатать элементы массива по 5 штук, по формату :11. Тип обрабатываемых данных: вещественные.

Вот мой текст программы.
VAR
A :array[1..50] of integer;
N,m,i,min :integer;
Fout :text;
LABEL vvod;
BEGIN
vvod: writeln('Vvedi dlinu massiva');
readln(m);
if m<1 then
begin
writeln('Nelzya rassmatrivat menshe odnogo 4isla');
goto vvod;
end;
min:=32767;
N:=0;
repeat
writeln('Vvedi o4erednoi element');
N :=N+1;
readln(A[N]);
if (A[N]>0) and (A[N]<min) then
min:=A[N];
Num:=N;
until (N=m);
if A[N]<0 then writeln('podxodyas4ix 4isel ne bylo')
else
writeln('nomer naimenshego elementa',' N');
begin
Assign(Fout,'MASSIV.RES');
ReWrite(Fout);
writeln(Fout,'Isxodnyi massiv iz ',n,' elementov');
for i:=1 to N do
begin
write(Fout,A[i]:11);
if i mod 5 = 0 then writeln(Fout);
end;
end;
Close(Fout);
END.

[Prince NAMTARr]

Народ, подскажите ошибку в тексте программы, пожалуйста. Сообразить никак не могу

Задача такова. Нахождение номера наименьшего элемента в массиве заданной длины среди всех положительных элементов. Длина массива вводится с клавиатуры. Печатать элементы массива по 5 штук, по формату :11. Тип обрабатываемых данных: вещественные.

Вот мой текст программы.
VAR
A :array[1..50] of integer;
N,m,i,min :integer;
Fout :text;
LABEL vvod;
BEGIN
vvod: writeln('Vvedi dlinu massiva');
readln(m);
if m<1 then
begin
writeln('Nelzya rassmatrivat menshe odnogo 4isla');
goto vvod;
end;
min:=32767;
N:=0;
repeat
writeln('Vvedi o4erednoi element');
N :=N+1;
readln(A[N]);
if (A[N]>0) and (A[N]<min) then
min:=A[N];
Num:=N;
until (N=m);
if A[N]<0 then writeln('podxodyas4ix 4isel ne bylo')
else
writeln('nomer naimenshego elementa',' N');
begin
Assign(Fout,'MASSIV.RES');
ReWrite(Fout);
writeln(Fout,'Isxodnyi massiv iz ',n,' elementov');
for i:=1 to N do
begin
write(Fout,A[i]:11);
if i mod 5 = 0 then writeln(Fout);
end;
end;
Close(Fout);
END.

А нафига такой корявый цикл? Не проще сначала вписать все числа в массив, а уж потом искать среди них минимальное? вот так, например:
Writeln ('BBeguTE gJIuHy MACCuBA');
Readln (n);
Writeln ('BBoguTE MACCuB');
for i:=1 to n do
readln (a[i]);
min:=32767;
for i:=1 to n do
begin
if (a[i]>0) and (a[i]<min) then
begin
min:=a[i];
x:=i;
end;
ну по 5 чисел, это отдельно, но вот так мб проще?

[sda]

if A[N]<0 then writeln('podxodyas4ix 4isel ne bylo')
else
writeln('nomer naimenshego elementa',' N');

Видимо здесь чего то не то. Зачем проверяется последний введенный элемент на то что он меньше нуля?

[Prince NAMTARr]

Видимо здесь чего то не то. Зачем проверяется последний введенный элемент на то что он меньше нуля?

да, похоже в этом и есть ошибка

[integral]

Prince NAMTARr, да, так действительно проще . Я-то старалась следовать старым правилам, вот и запуталась. Теперь буду внимательней. Благодарю!

[Prince NAMTARr]

Prince NAMTARr, да, так действительно проще . Я-то старалась следовать старым правилам, вот и запуталась. Теперь буду внимательней. Благодарю!

Всегда пожалуйста

[Dang]

Prince NAMTARr, да, так действительно проще . Я-то старалась следовать старым правилам, вот и запуталась. Теперь буду внимательней. Благодарю!

Оффтопик

нужно искать более рациональный способ решения

[геннадий]

for i:=1 to n do
begin
if (a[i]>0) and (a[i]<min) then
begin
min:=a[i];
x:=i;
end;

Пришел к тому, что когда что-то сугубо числовое может вычисляться конечным числом способов, лучше вместо операторов ЕСЛИ использовать вычисляемые логические выражения.

Пример1
Изгибающий момент в балке от сосредоточенной силы Ni

Mi(x) = (x > xi) * Ni * (x-xi)

пока текущее сечение слева от сосред i - й силы, изгиб от нее нулевой, иначе момент нарастает по линейному закону

Пример2

http://forum.bratsk.org/showpost.php...68&postcount=3

А к данной задаче метод применить не получается