Поиск числа, большего заданного

[pirozho4ek]

Прива народ. Помогите с задачкой:

Найти среди чисел 1,1+1/2,1+1/2+1/3,...
первое, большее некоторого числа А.

Заранее спасибо =)

[KORT]

Код программы:

 
Uses Crt;
Var
X:array [1..20] of real;
i,n:integer;
a:real;
Begin
ClrScr;
Write('Vvedite chislo ');
Readln(n);
For i:=1 to n do
begin
X[i]:=i+1/i;
Writeln(x[i]:7:2);
end;
Writeln;
Write('Vvedite chislo A ');
Readln(a);
For i:=1 to n do
If X[i]>A then
begin
Write ('Max pervoe chislo',x[i]:5:2,' ','nomer=',i);
Break;
end;
Readkey;
End.

[Shuraken]

Числа у тебя содержатся в массиве? Если да, то тогда можно написать так:

function FindMaxInArr: integer;
var
i: integer;
begin
for i := low(MyArr) to High(MyArr) do
begin
Result := MyArr[i];
if Result > SomeNumberWithNameA then
break;
end;
end;

[pirozho4ek]

пасибо за решение, а знает кто как написать решение используя оператор while/repeat ?

[Heaven]

Удалить из одномерного массива C нулевые элементы, передвинув на их место следущие элементы без нарушения порядка их следования. В результате должен получиться массив меньшего размера, но не содержащий нулей.

[Shuraken]

Ну, можно и так
j := 0;
for i := Low(Mass1) to High(Mass1) do
begin
if mass1[i] = 0 then continue;
mass2[j] := mass1[i];
inc(j);
end;

for i := Low(mass2) to High(mass2) do
mass1[i] := mass2[i];

Тупое решение в лоб.