Удалить из массива

[Маша906]

Удалить из массива А(п) нулевой элемент(элемент массива, который имеет нулевое значение ) передвинув на их место следующие элементы без нарушения порядка их следования.массив любой.язык программирования делфи

[ZX Spectrum-128]

(С) Puporev

uses Crt;
var  a:array[1..100] of integer;
     n,i,j,p,x:integer;
begin
ClrScr;
randomize;
write('Размер массмва n=');
readln(n);
writeln('Исходный массив:');
for i:=1 to n do
 begin
  a[i]:=random(4);
  write(a[i],' ');
 end;
writeln;
i:=1;
while i<=n do
if a[i]=0 then
 begin
  for j:=i to n-1 do
  a[j]:=a[j+1];
  n:=n-1;
 end
else i:=i+1;
writeln('Массив без нолей:');
for i:=1 to n do
write(a[i],' ');
readln
end.

[Маша906]

это в делфи?а можно блок схему еще?

[ZX Spectrum-128]

В консольном приложении. Нужно убрать
Uses crt; и clrscr;
Тогда заработает.

Есть программы специальные, позволяющие по коду создавать блок-схемы. Поищите.