Одномерные массивы в Turbo Pascal

[W_P]

Есть 2 задачи :
1)Найти сумму элементов одномерного массива, состоящего из n вещественных элементов, между первым и последним отрицательными.
2)Сжать массив, состоящий из n вещественных элементов, удалив из него все элементы, модуль которых не превышает единицу. Освободившиеся в конце массива элементы заполнить нулями.
Заранее спасибо!

/// 1 задачу сам уже сделал...со второй проблемы ! Жду Помощи!!

[knight]

procedure Sort(var A: array of real);
var
I, J: integer;
T: real;
begin
for I := High(A) downto Low(A) do
for J := Low(A) to High(A) - 1 do
if abs( A[J] ) <= 1 then
begin
T := 0;
A[J] := A[J + 1];
A[J + 1] := T;
end;
end;

[W_P]

а что значит low и high?? первый раз просто такое вижу

[knight]

массив 0..9
High(A) - старший индекс массива = 9
Low(A) - младщий индекс массива = 0
это из Delphi, на Pascal можно тупо проставить значения

[W_P]

спасибо чувак)!

[K@MMUN1$t]

очень срочно нужно.
Составить и отладить программу, обеспечивающую ввод массива символьных строк.
Сформировать из произвольно заданного одномерного массива символьных строк массив, элементы которого состоят из строк исходного массива, начинающихся латинскими буквами.

[Arigato]

очень срочно нужно.

И как предлагаете решать эти задачи?

[Zhanna5006]

А мне нужно полностью, пожалуйста:
В одномерном массиве, состоящем из n вещественных элементов, вычислить:
Сумму элементов массива, расположенных между первым и последним отрицательными элементами;
Сжать массив, удалив из него все элементы, модуль которых не превышает единицу. Освободившиеся в конце массива элементы заполнить нулями.
Я знаю, что нужно решать с помощью процедур и функций, но не знаю как. =(

[Zhanna5006]

Помогите пожалуйста, мне сегодня срочно надо! =(

[IT-man]

for i:=1 to n do 
if a[i]<0 then begin i1:=i;break;end;
for i:=i1 to n do
if a[i]<0 then i2:=i;
s:=0;
for i:=i1 to i2 do
s:=s+a[i];
for i:=1 to n do
if (abs(a[i])<1) and (a[i]<>0)  then begin
 for j:=i to n do
 a[j]:=a[j+1];
a[n]:=0;
end;