Кто может написать программу в 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

Относительная  адресация  задается  просто  буквой  (столбец)  и  цифрой  (строка). например,  в  ячейках  a1,  a2,  a3,    a10  пишем  числа,  а  в  ячейке  b1  пишем =a1*2. теперь,  если  скопировать  ячейку  b1 в  b2,  то  адрес  изменится  и  получится =a2*2. так  можно  составить  таблицу  умножения  на  2. но,  если  скопировать  b1  в  c1, то  получится =b1*2 то  есть  в  столбце  с  уже  получится  таблица  умножения  на  2  для  столбца  в. абсолютная  адресация  задается  знаком  $  перед нужной  координатой. например,  если  написать  в ячейке    b1 =$a1*2, то столбец а  будет  задан  абсолютно,  а  строка  -  относительно. теперь,  если  скопировать  из  b1  в  b2,  то  получится =$a2*2 а  вот  если  скопировать в  с1,  то  получится =$a1*2, то  есть  в  столбце  с  получится  копия  столбца  в. а  если  поставить  и  строку  в  абсолютную  ссылку =$a$1*2, то  при  копировании  в  любую  ячейку  формула  не  изменится. обычно  абсолютную  адресацию  используют,  когда  хотят  всю  таблицу  умножить  на  какой-то  коэффициент,  например,  перевести  долларовые  цены  в  рубли. тогда  в  какой-то  ячейке  за  пределами  таблицы,  например,  в  k1  пишут  курс, а  во  всей  таблице  пишут =a1*$k$1 теперь  при  копировании  этой  формулы  на  всю  таблицу  будет  меняться  только  адрес  текущей  ячейки  а1,  а  адрес  ячейки  с  курсом  k1  остается  неизменным.

На  бейсике dim  a  as  string,  n  as  integer n =  0 do  '  вечный  цикл,  пока  не  введут  точку print  "введите букву"; input  a if (a  =  "o")  or  (a = "о")  then  n  =  n  +  1  '  если  ввели  рус.  или  .  о,  то  увеличиваем  счетчик if  a  =  "."  then  exit  do  '  если  ввели  точку,  выскакиваем  из  цикла loop print  n  '  выдаем  количество  введенных  букв о end