функции и процедуры Опции

[tori]

Нужно написать подпрограмму для удаления указанного элемента из одномерного массива.

Буду очень благодарна, если предложите свое решение,мое чего-то глючит

[Леха]

а вот и реализация второго способа:

program delete;
uses crt;
const a=10;
type mas = array [1..a] of integer;
var ar1:mas;
    b,g:integer;
procedure input(var num:integer);
      var ior:word;
        begin
         repeat
           writeln ('INPUT SIZE OF ARRAY');
           {$I-}readln(num);{$I+}
           ior:=IOResult;
           if (ior<>0) or (num<=0) or (num>a) then
               writeln ('ERROR!!!');
         until (ior=0) and (num>0) and (num<=a);
        end;

procedure inparr(var ar1f:mas;el:integer);
var i,j:integer;

    ior:word;
begin
  for j:=1 to el do
      begin
        writeln('INPUT (',j,')');
        repeat
         {$I-}readln(ar1f[j]);{$I+}
         ior:=IOResult;
         if (ior<>0) then
               writeln ('ERROR!!!');
        until (ior=0);
      end;
end;

procedure output(ar1f:mas;el:integer);
var j:integer;
    ior:word;
begin
  for j:=1 to el do
      begin
        write(ar1f[j],' ');
      end;
end;


{-----------------------вот главная процедура удаления-----------------}
procedure sort(var ar1f:mas;n:integer; var p:integer);
var i:integer;
 begin
  for i:=n to p do begin
     ar1f[i]:=ar1f[i+1];
   end;
   dec(p);
 end;

begin
clrscr;
input(b);
inparr(ar1,b);
output(ar1,b);
writeln('');
writeln('INPUT NUMBER OF ELEMENT TO DELETE');
readln(g);
sort(ar1,g,b);
writeln('');
output(ar1,b);
repeat until keypressed
end.

Сообщение отредактировано: Леха - 9.12.2006 0:36