В целочисленной последовательности есть нулевые элементы. Создать одномерный массив из номеров этих элемен
тов.
Полная версия: Массив
Помогите решить задачу.
В целочисленной последовательности есть нулевые элементы. Создать одномерный массив из номеров этих элемен тов.
В целочисленной последовательности есть нулевые элементы. Создать одномерный массив из номеров этих элемен
тов.
это делается очень просто
k:=0;
for i:=1 to n do
begin
if A[i]=0 then k:=k+1;
end;
for i:=1 to n do
begin
for j:=1 to k do
begin
if A[i]=0 then B[j]:=i;
end;
end;
Код
k:=0;
for i:=1 to n do
begin
if A[i]=0 then k:=k+1;
end;
for i:=1 to n do
begin
for j:=1 to k do
begin
if A[i]=0 then B[j]:=i;
end;
end;
Uriah, а если подумать?
Задача элементарно решается ОДНИМ циклом, а не тем, что у тебя наворочено...
Тем более, что оно вообще неправильно...
Задача элементарно решается ОДНИМ циклом, а не тем, что у тебя наворочено...
Тем более, что оно вообще неправильно...
Цитата(volvo @ 18.11.2006 23:30) 
Uriah, а если подумать?
Задача элементарно решается ОДНИМ циклом, а не тем, что у тебя наворочено...
ой, да, млость перемудрил
{по идее, надо обнулить массив nom - номера нулевых эл-тов. это сделай сама}
j:=0;
for i:=1 to n do
begin
mas[i]:=random(5)-3; {заполняем массив, если еще не заполнили}
if mas[i]=0 then
begin
inc(j);
nom[j]:=i;
end;
end;
...как всегда не успела.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.