Переделать программу, чтобы работала через одну процедуру..

[Proskurina]

. Удалить из массива все элементы, последняя цифра которых нечетная и сжать массив

uses crt;
const nmax=100;
type mas=array [1..nmax+1] of integer;
var a: mas; n: byte;

procedure Gen(var r: byte; var z: mas);
var i: byte;
begin
repeat
write('Количество элементов, не более ',nmax,', n='); readln(r);
until r in [1..nmax];
for i:=1 to r do
z[i]:=random(199)-99;
end;

procedure Print(r: byte; z: mas);
var i: byte;
begin
for i:=1 to r do
write(z[i]:4);
writeln;
end;

procedure Sdvig (c: byte; var r: byte; var z: mas);
var i: byte;
begin
for i:=c to r-1 do
z[i]:=z[i+1];
dec(r);
end;

procedure Compress (var r: byte; var z:mas);
var i: byte;
begin
for i:=r downto 1 do
if odd(z[i] mod 10) then Sdvig (i,r,z);
end;

begin
Gen(n,a);
writeln('Исходный массив');
Print(n,a);
writeln('Массив после сжатия');
Compress(n,a);
Print(n,a);
end.

[Stilet]

Примерно так:

uses crt;
const nmax=100;
type mas=array [1..nmax+1] of integer;
var a: mas; n: byte;

procedure Gen(var r: byte; var z: mas);
var j,i: byte;
begin
 repeat
  write('Количество элементов, не более ',nmax,', n='); readln(r);
 until r in [1..nmax];
 for i:=1 to r do z[i]:=random(199)-99;
 for i:=1 to r do write(z[i]:4);writeln;
 for i:=r downto 1 do if odd(z[i] mod 10) then for j:=c to r-1 do z[j]:=z[j+1];
 for i:=1 to r do write(z[i]:4);writeln;
end;

begin
Gen(n,a);
end.

Не проверял.

[Proskurina]

не работает((( можно сделать задачу для abcpaskal??

[Poma][a]

abcpaskal

эх да, даже не знаете язык, на котором "пишите"...

procedure Gen;
...
Gen;

попробуйте так

[Stilet]

procedure Gen;
...
Gen;

Видимо я его тоже не знаю )

[Proskurina]

не работает((((

[Stilet]

Учла Ромино замечание?
Какие ошибки программа выдает?
Readln в конце поставила для задержки консоли?