Advertisement
Norvager

старое

Jan 19th, 2022
1,274
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. var i,j,w,h,a:integer;
  2.     z1,z2,z4:array [,] of integer;
  3.     z3:array of integer;
  4.   begin
  5.    read(w); read(h);
  6.  
  7.    z1:= new integer[6,4];
  8.    z2:= new integer[6,4];
  9.    z4:= new integer[6,4];
  10.    z3:= new integer[52];
  11.     for i:=1 to h do
  12.      begin
  13.       writeln;
  14.        for j:=1 to w do             {Первая картинка}
  15.         begin
  16.          read(z1[j,i]);
  17.         end;
  18.      end;
  19.     for i:=1 to h do
  20.      begin
  21.       writeln;
  22.        for j:=1 to w do             {Вторая картинка}
  23.         begin
  24.          read(z2[j,i]);
  25.         end;
  26.      end;
  27.    a:=4;
  28.     for i:=1 to a do
  29.      begin                          {Алгоритм}
  30.       read(z3[i])
  31.      end;
  32.     for i:=1 to h do
  33.      begin
  34.       writeln;
  35.        for j:=1 to w do             {Итог}
  36.         begin
  37.          if z1[j,i]=0 then
  38.            if z2[j,i]=0 then
  39.             z4[j,i]:=z3[1]
  40.            else z4[j,i]:=z3[2]
  41.          else if z2[j,i]=0 then
  42.            z4[j,i]:=z3[3]
  43.           else z4[j,i]:=z3[4];
  44.         end;
  45.      end;
  46.     for i:=1 to h do
  47.      begin
  48.       writeln;
  49.        for j:=1 to w do             {Вывод}
  50.         begin
  51.          write(z4[j,i]);
  52.         end;
  53.      end;
  54.   end.
Advertisement
Advertisement
Advertisement
RAW Paste Data Copied
Advertisement