Паскаль. Не получается вывод

[Натуличка]

Паскаль. Не получается вывод

у меня явные проблемы с ввыводом! я честно признаюсь не понимаю как его надо делать т.к в разных задачах по-разному: вот и сейчас.
В линейном массиве целых чисел удалить из массива элемент равный заданному числу d/ полученный массив вывести на эуран.
поскольку эта задача на удаление, то получаются, что мой массив смещается на 1 ячейку илм же нет в зависимости от условия. я должна вывводить
writeln ('a=, i' a);

 

[Vladimir_S]

writeln ('a=, i' a);

writeln('a[',i,']= ',a);

 

[Натуличка]

я так тоже пробывала....( безуспешно (спасибо все равно)

 

[Vladimir_S]

я так тоже пробывала....( безуспешно (спасибо все равно)

Var
 a:Array[1..9] of Byte;
 i:Byte;
Begin
 For i:=1 to 9 do a[i]:=i*i;
 For i:=1 to 9 do Writeln('a[',i,']= ',a[i]:2);
 Readln
End.

 

[Натуличка]

writeln('a[',i,']= ',a);[/QUOT
почему так? вот моё решение:
var a: array [1..50] of integer;
i,n,d,j:integer;
begin
writeln ('ввод кол-ва эл мас');
readln ;
writeln ('ввод эл мас');
for i:=1 to n do
readln(a);
writeln ('ввод заданного числа');
readln (d);
for i:=1 to n do
if a=d then
begin
j:=i;
j:i+1;
end;
for i:=j to n-1 do
a:=a[i+1];
writeln
readln
end.

 

[Vladimir_S]

М-да... Боюсь, смысл ниже приведенного фрагмента навсегда останется тайной создавшего его программиста.

for i:=1 to n do
if a=d then
begin
j:=i;
j:i+1;
end;

Ладно, не буду заниматься демагогией. Я бы на свой вкус предложил такое решение:

var
 a: array [1..50] of integer;
 i,n,d,j:integer;
begin
 write('ввод кол-ва эл мас ');
 readln(n);
 writeln ('ввод эл мас');
 for i:=1 to n do
  begin
   write('a[',i:2,']= ');
   readln(a[i]);
  end;
 writeln;
 for i:=1 to n do write(a[i]:4);
 writeln;
 writeln;
 write('ввод заданного числа ');
 readln(d);
 for i:=1 to n do
  if a[i]=d then
   begin
    for j:=i to n-1 do a[j]:=a[j+1];
    dec(n);
   end;
 writeln;
 for i:=1 to n do write(a[i]:4);
 readln
end.