Программа на процедур)))

[mozhik]

Составить процедуру, которая из двух целочисленных одномерных массивов, в каждом из которых все элементы разные, образует третий массив, в который переписывает элементы первого массива, которых нет во втором массиве (дополнение второго массива до первого). Использовать процедуру для массивов E(l), l<20, F(m), m<30.
Помогите)))

[p51x]

чем помочь? где ваши попытки?

[mozhik]

Сообщение от p51x

чем помочь? где ваши попытки?

PHP код:


program matrizi;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type mas=array[1..15] of integer;

procedure VVOD (var a:mas;var n:integer);
var i:integer;
begin
writeln('VVedite kolichestvo elementov');
readln(n);
writeln('Vvedite matrizu');
for i:=1 to n do
begin;
 read (a[i]);
  readln;
  END;

end;

procedure VVOD1 (var b:mas;var m:integer);
var i:integer;
begin
writeln('VVedite kolichestvo elementov F');
readln(m);
writeln('Vvedite matrizu F ');
for i:=1 to M do
begin
 read (b[i]);
  readln;

end;
end;


procedure VIVOD1 (a,B:mas;n,M:integer);
var i:integer;
begin
for i:=1 to n do begin
   write ('E[',i,'] := ', a[i],' ');
   Writeln;
                 end;
                 Writeln;
                 for I:=1 TO M DO
                 begin
                   write ('F[',i,'] := ', B[I]);
                   Writeln;
                 end;
end;
procedure VIVOD2 (a,B:mas;n,M:integer);
var i:integer;
begin
for i:=1 to n do
begin;
if (a[i])<> (B[i]) then write ('c[i]:',a[i]);

  readln;
  END;
                 for I:=1 TO M DO
                 begin

               if (b[i])<> (a[i]) then write ('c[i]:',b[i]);
                   Writeln;
                 end;
  if b[i]<> a[i] then write ('c[i]:',b[i]);

                 end;

var A,B:mas;
    n,M:integer;
begin
VVOD(A,n);
   VVOD1(B,M);
writeln('Dannie matrisi');
VIVOD1(A,B,n,M);
VIVOD2(A,B,n,M);
readln;
end.