помгите исправить код

[metanol]

Нужно создать новый массив из номеров нулевых элементов исходного массива

program Project27;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var A,B:array [1..30] of integer;
    n,i,k:integer;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  writeln('vvedite chislo elementov massiva:');
  readln(n);
  writeln('vvedite massiv:');
  begin
    for i := 1 to n do
      read(A[i]);
      readln;
  end;
  k:=0;
  for i := 1 to n do
   if A[i]=0 then
   begin
   k:=k+1;
   B[k]:=i;
  end;
    writeln('massiv iz novyx elementov:');
    for i := 1 to k do
   writeln(B[k]:4);
   readln;
end.

выдает пятерки постоянно

[ViktorR]

1. Используйте для ввода данных процедуру readln();
2. Тут у Вас цикл с параметром i, а Вы выводите каждый раз одно и то же значение B[k]. При этом k = числу найденных элементов, т.е. выводится k раз номер последнего найденного элемента.

for i := 1 to k do
   writeln(B[k]:4);

Как-то так, ...

[metanol]

Сообщение от ViktorR

1. Используйте для ввода данных процедуру readln();
2. Тут у Вас цикл с параметром i, а Вы выводите каждый раз одно и то же значение B[k]. При этом k = числу найденных элементов, т.е. выводится k раз номер последнего найденного элемента.

for i := 1 to k do
   writeln(B[k]:4);

Как-то так, ...

Исправил на B[i],вроде получилось,но почему так?

[ViktorR]

Исправил на B[i],вроде получилось,но почему так?

Да просто потому ...
B[] - это массив (некоторый набор) однотипных элементов.
Вам надо вывести числа, которые хранятся в этих элементах.
В цикле, меняя i - номер элемента, Вы и получаете требуемое - B[i].
k - число найденных совпадений и это число заполненных элементов массива B[] или, что тоже самое - последний заполненный элемент в массиве B[].


Как-то так, ...