Ход конем - "приветливость" програм, работа с масивом Опции

[Alex7]

Как можно сделать так, чтобы не спрашивать у пользователя сколько тот в дальнейшем собирается ввести чисел(записываемые в масив), а сделать хд конем, притом вычислив их кол-во. Учитывая то, что он может разделить их (числа) любыми знаками препинания(кроме точки, разумеется); и чтобы "числа"! содержищие неправильные знаки(к пр. символы алфавита) не записывались, а после выводилось сообщение, что молвв в таком-то числе была ошибка при написании.?

Вот как я пытался это организовать. Но, конечно же мне явно не хватает знаний

Repeat
   Writeln('‚ўҐ¤лвм ўҐЄв®а ¤л©б­Ёе зЁбҐ«');
   Readln(vector);
   If Length(vector)>5 then
    begin
        l:=0;
        For i:=1 to Length(vector)-4 do
         begin
             Val(Copy(vector,1,Pos(' ',vector)-1),arr[i],z);
             Delete(vector,1,Pos(' ',vector));
             Inc(l);
         end;

И кстати:, Пожалуйсто!:
http://forum.pascalnet.ru/index.php?showtopic=7406
http://forum.pascalnet.ru/index.php?showt...&st=0&p=53351&#

И:
тут задачка, вроде решил, но не понимаю тогда почему такое странное задание:

Определить, сколько ф-я() пересекает ось ОХ(т.е. знаки в 2-х соседних точках разные)на промежутке х1,х2 . Разсмотреть 125 рабноотдаленных точек на промежутке

А вот и задача:

Program Peretin_OX;
Uses CRT;
var  x,dx,t1,t2:double;
   x1,x2,number:longint;
Begin
clrscr;
textcolor(7);
Repeat
  Writeln('‚ўҐ¤iвм x1,x2');
  Readln(x1,x2);
  If x1>=x2 then
   writeln('ЌҐўiа­Ё© ¤i Ї §®­!');
Until x1<x2;
dx:=(x2-x1)/125;
number:=0;
x:=x1;
repeat
t1:=((ln(x*x))/ln(3))+cos(pi/3+2*x*x*x);
x:=x+dx;
t2:=((ln(x*x))/ln(3))+cos(pi/3+2*x*x*x);
if (t1*t2)<0  then number:=number+1;
until x>=x2;
textcolor(2);
writeln('Љi«мЄiбвм ЇҐаҐвЁ­iў § OX: ',number);
readln
End.

Просто она действительно, считает кол-во пересечений,, но только в двух соседних точках, и так 125 раз, а не в общем, а значит при меньшем диапазоне может быть больше пересечений, Вобщем правильно ли я понял задание???

[volvo]

Просто так ничего не бывает ... Тебе нужна была универсальность - ты ее получил (за счет размера программы). Или тебе нужен размер программы, тогда делай как делал раньше...

Кстати, (s[i] in delimiter) это так всегда можно писать, когда огласил перечисляемый тип константы в Const? А то я думал. что in работает только для множеств.

А delimiter по твоему это что?