Учеба и наука

• Всего ответов: 1


Багдасаров Христофор Вадимович
67-й в Учебе и науке
4 отзыва
program nul_el_mas;
uses crt;
    var
    a,b:array [1..10] of integer;
     n,i,j,k:integer; 
begin
   clrscr; 
      writeln ('vvedite razmernost massiva'); readln (n); 
 
for i:=1 to n do
  begin 
writeln ('vvedite ',i,'-y elementy massiva'); readln(a[i]);
 end;
j:=0;
 
  for i:=1 to n do
   begin
        if a[i]=0 then
           begin
          k:=i; j:=j+1; 
               b[j]:=k;
            end;
   end;
 
        for i:=1 to j do write (' ',b[i]);
               readkey;  
  end.
декабрь 6, 2011 г.
Ответ понравился автору
Лучший ответ по мнению автора