const n=11;
var a:array[1..n] of integer;
    i:integer;
begin
i:=1;
while i<=n do
 begin
  write('a[',i,']=');
  readln(a[i]);
  i:=i+1;
 end;
writeln('Введенный массив');
i:=1;
repeat
write(a[i],' ');
i:=i+1;
until i>n;
end.

const
  n=11;
var
  a:array[1..n] of integer;
  i:integer;
begin
  i:=1;
  while i<=n do
    begin
      write('Enter A[',i,']:=');
      readln(a[i]);
      inc(i);
    end;
  for i:=1 to n do
    if a[i]=0 then a[i]:=1;
  i:=1;
  repeat
    write(a[i]:6);
    inc(i)
  until i>n;
end.