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

Question

Информатика

Карина

5 августа, 20:17

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

+5

Ответы (1)

Знаете ответ?

Мстислава · Answer 1

Напишу сразу код, немного прокемментировал, но если взялись связать свою жизнь с информатикой, то нужно изучать это всё.

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