fork download
copy 
  1. program kek; 
  2. var
  3. A : array[1..200, 1..100] of integer;
  4. N, M, i, j: integer;
  5. begin
  6.   read(N);
  7.   read;
  8.   readln(M);
  9.   for i:=1 to 2*N do
  10.   	begin
  11.     for j:=1 to M do
  12.       read(A[i, j]);
  13.       writeln;
  14.     end;
  15.  
  16.   for i:=1 to N do
  17.     for j:= 1 to M do
  18.       A[i, j]:= A[i, j] + A[i + N, j];
  19.  
  20.   for i:=1 to N do
  21.     for j:= 1 to M do
  22.       begin
  23.         if A[i, j] > 5 then
  24.           begin
  25.             if (i = 1) or (i = N) or (j = 1) or (j = M)
  26.               then
  27.                 A[i, j]:= 5;
  28.           end;
  29.       end;
  30.  
  31.    for i:=1 to N do
  32.     for j:= 1 to M do
  33.       begin
  34.         if A[i, j] > 5 then
  35.           begin
  36.             if (i <> 1) or (i <> N) or (j <> 1) or (j <> M)
  37.               then
  38.                 begin
  39.                   A[i, j]:= A[i, j] - 4;
  40.                   A[i+1, j]:= A[i+1, j] +1;
  41.                   A[i-1, j]:= A[i-1, j] +1;
  42.                   A[i, j+1]:= A[i, j+1] +1;
  43.                   A[i, j-1]:= A[i, j-1] +1;
  44.                 end;
  45.           end;
  46.       end;
  47.  
  48.     for i:=1 to N do 
  49.       begin
  50.     	for j:= 1 to M do
  51.         	write(A[i, j]);
  52.         writeln;
  53.       end;
  54.  
  55. end.
Success #stdin #stdout 0s 9288KB
comments (?)
stdin
copy 
3 4
1 2 3 4
4 3 2 1
1 4 4 1
4 3 2 1
1 2 3 4
4 4 4 4
stdout
copy 





5555
5555
5555
https://ideone.com/NaQKEf
language:
Pascal (gpc 20070904)
created:
5 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!