Дан массив с нулями, вывести порядковые номера элементов массива равные нулю

Question

Информатика

Маргаритка

19 августа, 02:05

Дан массив с нулями, вывести порядковые номера элементов массива равные нулю

+1

Ответы (2)

Знаете ответ на вопрос?

Лидуся · Answer 1

For i: 1 to n do

for j:1 to n do

if mas[i]=0 then

mas2[j]:=i

Николаха · Answer 2

Program a;

var mas: array of integer;

i, n:integer;

begin

write ('количетво элементов = ') ;

read (n) ;

setlength (mas, n) ;

writeln ('перечислите знач. эл. ') ;

for i:=0 to n do

read (mas[i]) ;

writeln;

for i:=0 to n do

if (mas[i]=0) then write (i) ;

end;