[Seidgin]

Всем доброго времени суток
Помогите плиз создать программу на Delphi с условием:

нужно чтоб программа считывала одномерный массив из 10 элементов с текстового файла и определяла произведение отрицательных элементов ?

Помогите плиз очень нужно

[angvelem]

При чём тут WEB-программирование? Считать из текстового файла можно построчно командой ReadLn, либо разом, к примеру, в TStringList. Проходим по циклу и сравниваем с 0, если меньше умножаем на предыдущее найденное значение, если найдено в перый раз, то запоминаем.

Код:

var
  I, J : Integer;
  buf : array[0..9] of Integer;
begin
  J := 0;
  for I := 0 to 9 do
    if buf[i] < 0 then
      if J = 0 then
        J := Buf[i]
      else
        J := J * buf[i];
end;

[Seidgin]

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

[angvelem]

Для начала дай образец текстового файла, всё зависит от того как он устроен.

[Seidgin]

программа должна по идеи заполнить документ а потом прочесть его и найти то что по условию

[angvelem]

Как хранятся данные, построчно каждое значение или все значения в одной строке.