Линейные массивы!

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

Question

Информатика

Веселье

28 февраля, 20:35

Линейные массивы!

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

+1

Ответы (1)

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

Досифея · Answer 1

Var i, j:integer;

mass1:array[1 ... 10] of integer;

mass2:array[1 ... 10] of integer;

begin

for i:=1 to 10 do begin

read (mass1[i]) ;

if mass1[i]=0 then begin

j:=j+1;

mass2[j]:=i;

end;

end;

for j:=1 to j do

write (mass2[j]:3) ;

end.

Линейные массивы!В целочисленной последовательности есть нулевые элементы. Создать массив из номеров этих элементов.

Линейные массивы!

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