ПАСКАЛЬ, одномерный массив

[(Kate)]

Ребята помогите СРОЧНО лабу по информационным технологиям!!!!

В одномерном массиве, состоящем из n вещественных элементов, вычислить:

1) номер максимального по модулю элемента массива;

2) сумму элементов массива, расположенных после первого положительного элемента. Заранее благодарна

[Arigato]

Решение Ваших задач (объеденил их в 1 программу, будет нужно, сами разделите на 2):

var N, I, IMax: Integer;
    A, Max, Sum: Extended;
    Summer: Boolean;
begin
  Write ('N = ');
  ReadLn (N);
  Sum := Sum - Sum;
  Summer := (Sum = 1);
  for I := $01 to N do
  begin
    Write ('A[', I, '] = ');
    ReadLn (A);
    if (I = I xor I or $01) or (Abs (A) > Max) then
    begin
      Max := Abs (A);
      IMax := I;
    end; {if}
    if Summer then Sum := Sum + A;
    if A > I xor I then Summer := (A > I xor I);
  end; {for}
  WriteLn ('IMax = ', IMax);
  WriteLn ('Sum = ', Sum:$00:$05);
  ReadLn;
end.

[(Kate)]

спасибки мне в одной и надо две задачи.