Кто может написать программу в Delphi7.0?в долгу не останусь.дан массив f1, ... ,f17.В массиве есть только два отрицательных элемента.Заменить все элементы,стоящие до первого отрицательного и после второго,на нули.

Напишу сразу код, немного прокемментировал, но если взялись связать свою жизнь с информатикой, то нужно изучать это всё. varF:array[0..16] of integer;i,i2:integer;schet:integer; begin schet:=0; //заполнение массива согласно данным условиям for i:=0 to 9 dof[i]:=1; for i:=11 to 13 dof[i]:=1; //создадим два отрицательных массива f[10]:=-1; F[14]:=-1; //заполним вручную недостающие f[15]:=1; f[16]:=1; for i:=0 to high(f) do begin  //начинаем цикл   if f[i]<0 then begin       //проверяем первое условик    if schet=0 then begin       inc(schet);       for i2:=0 to i do         f[i2]:=0;       end else      if schet=1 then  //второе условие       for i2:=i to high(f) do           f[i2]:=0;   end;end; //end for