помогите плз

[Broneslav]

http://imageshost.ru/links/4140f498b...160f9cf8ad397f

[puporev]

Вот программа, здесь ввод рандомный, нормально работает, но можно переделать и на ручной если нужно.

uses crt;
var a:array[1..7]of integer;
    b:array[1..6] of integer;
    c:array[1..7,1..6] of integer;
    i,j:integer;
begin
clrscr;
randomize;
writeln('Massiv A:');
for i:=1 to 7 do
   begin
     a[i]:=random(5);
     write(a[i],' ');
   end;
writeln;
writeln('Massiv B:');
for i:=1 to 6 do
   begin
     b[i]:=random(5);
     write(b[i],' ');
   end;
writeln;
writeln('Matrica C:');
for i:=1 to 7 do
  begin
    for j:=1 to 6 do
      begin
        if a[i]<>b[j] then c[i,j]:=1
        else if a[i]=b[j] then c[i,j]:=0;
        write(c[i,j]:3);
      end;
    writeln;
  end;
readln
end.

[Broneslav]

спасибо большое)