Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Массив

Автор: Ольга.В 19.11.2006 3:43

Помогите решить задачу.
В целочисленной последовательности есть нулевые элементы. Создать одномерный массив из номеров этих элемен norespect.gif тов.

Автор: Uriah 19.11.2006 4:23

это делается очень просто

Код

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;

Автор: volvo 19.11.2006 4:30

Uriah, а если подумать?

Задача элементарно решается ОДНИМ циклом, а не тем, что у тебя наворочено...

Тем более, что оно вообще неправильно...

Автор: Uriah 19.11.2006 4:32

Цитата(volvo @ 18.11.2006 23:30) *

Uriah, а если подумать?

Задача элементарно решается ОДНИМ циклом, а не тем, что у тебя наворочено...


ой, да, млость перемудрил

Автор: мисс_граффити 19.11.2006 4:34

blink.gif 

 {по идее, надо обнулить массив 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;

...как всегда не успела.