Работа с файлами и одномерными массивами (Pascal)

[Crocodile_007]

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

[macomics]

И где же собственные наработки?

[macomics]

uses SysUtils;

var
   N: Integer; // Длина массивов A и C
   A: array of Integer; // Массив A
   C: array of Integer; // Массив С
   L, H: Integer; // Диапазон (L - нижняя граница; H - верхняя)
   i: Integer; // Индексная переменная
   P, Q: Integer; // Индексы минимума и максимума

begin
   Write('Введите количество элементов в массивах (N) = ');
   ReadLn(N);
   SetLength(A, N);
   SetLength(C, N);
   for i := Low(A) to High(A) do begin
      Write('Введите A[', i, '] = ');
      ReadLn(A[i]);
   end;
   for i := Low(C) to High(C) do begin
      Write('Введите C[', i, '] = ');
      ReadLn(C[i]);
   end;
   Write('Введите диапазон: от ');
   Read(L);
   Write('до ');
   ReadLn(H);
   Write('Массив C = ');
   for i := Low(C) to High(C) - 1 do
      Write(C[i], ', ');
   WriteLn(C[High(C)], '.');
   i := Low(A);
   while (i <= High(A)) and (A[i] >= L) and (A[i] <= H) do
      inc(i);
   if i <= High(A) then begin
      Q := 0; // Счетчик замен
      for i := Low(A) to High(A) do
         if not (A[i] > 0) then begin
            A[i] := abs(C[i]);
            inc(Q);
         end;
      Write('Массив A = ');
      for i := Low(A) to High(A) - 1 do
         Write(A[i], ', ');
      WriteLn(A[High(A)], '.');
      WriteLn('Количество замен = ', Q);
   end else begin
      P := Low(A);
      Q := Low(A);
      Write('Массив A = ');
      for i := Low(A) to High(A) do begin
         if i < High(A) then
            Write(A[i], ', ');
         if A[i] < A[P] then
            P := i;
         if A[i] > A[Q] then
            Q := i;
      end;
      WriteLn(A[High(A)], '.');
      WriteLn('Разность наибольшей и наименьшей абсолютных величин в массиве A = ', abs(A[Q]) - abs(A[P]));
   end;
end.

[digitalis]

Сообщение от macomics

И где же собственные наработки?

... прозвучал риторический вопрос, ясень ТС не ответил, и macomics, вздохнув, сел писать прогу

[macomics]

Ну настроения не было, вот и способствую, чтобы человек ничему не научился.

[BDA]

Возможно нужно уже и при определении P и Q в последнем цикле сравнивать элементы по модулю, а не только в итоговом вычитании использовать модуль.