[Pascal] Массивы

[maxg5]

Помогите решить задачку.Условие такое:
Дан одномерный масиив целых чисел размерностью N.В этот массив записываются положительные и отрицательные числа.Сформировать друой одномерный массив в который переписываются только отрицательные числа.

[Колядин Максим]

Модная задача...

Код: Выделить всё

uses crt;
const m=100;
type mas=array [1..m] of integer;
var 
a: mas; 
b: mas; 
i: integer;
n: integer;
e: integer;
begin
clrscr; 
write('Vvedite N: '); readln(n);
if n>m then exit;
for i:= 1 to n do begin
write('Vvedite element №',i,': '); 
readln(a[i]);
end;
for i:= 1 to n do if a[i]<0 then b[i]:=a[i];
writeln(' Содержание массива B: ');
for i:= 1 to n do writeln(b[i]);
readkey;
end.

[Oleg_Rus]

Колядин Максим, как я понял такая программа из массива 1 -3 -3 6 9
выдаст 1 0 0 6 9.

можно завести отдельный счетчик для массива B
if a<0 then
begin
b[k]:=a;
inc(k);
end;

причем k в начале проги равна 1

[Хыиуду]

А что, извращаться так извращаться!
s:='';
for i:=1 to N do
if a<0 then s:=s+inttostr(a)+',';
delete(s,length(s),1);
Строка - это ведь тоже одномерный массив!

[Oleg_Rus]

Хыиуду, а можно устроить просеивание букв от чисел, ведь могет быть, что попадутся буквы.

кстати, хотел спросить, что оптимальней
If (Ord(a)>Ord(97) and (Ord(a)<Ord(122))
или
If (a>'a') and(a<'z') ?

Вроде бы числа должен понимать сразу, а тут по-символьносравнивает...

[Хыиуду]

Второе, думаю, оптимальней. Потому что найти элемент массива и сравнить два чара намного быстрее, чем вызывать функцию.
А если подумать, то можно сказать, что на этом участке кода, как его ни делай, все равно особо не ускоришься