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

Question

Информатика

Ювеналий

15 июня, 04:54

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

+1

Ответы (2)

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

Викула · Answer 1

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;

Богдана · Answer 2

For i: 1 to n do

for j:1 to n do

if mas[i]=0 then

mas2[j]:=i