М-да... Боюсь, смысл ниже приведенного фрагмента навсегда останется тайной создавшего его программиста.
Цитата:
Сообщение от Натуличка
for i:=1 to n do
if a[i]=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.