• API
• FAQ
• Tools
• Archive
SHARE
TWEET # Untitled a guest Mar 28th, 2020 68 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
1. var n,m,i,k,x,y,d,l,st:longint;
2.     A:array [0..20,0..20] of longint;
3. BEGIN
5.           for i:=1 to n do
6.           begin
7.               for k:=1 to m do
9.           writeln();
10.           end;
11.           for i:=1 to n do
12.               for k:=1 to m do
13.               begin
14.                    if (A[i+1,k]=0) then
15.                    d:=A[i,k+1]+A[i,k]
16.                    else
17.                    begin
18.                    if (A[i+1,k]>A[i,k+1]) then
19.                    d:=A[i,k+1]+A[i,k]
20.                    else
21.                    d:=A[i+1,k]+A[i,k];
22.                    if (A[i,k+1]=0) then
23.                    d:=A[i+1,k]+A[i,k]
24.                    else
25.                    begin
26.                    if (A[i+1,k]>A[i,k+1]) then
27.                    d:=A[i,k+1]+A[i,k]
28.                    else
29.                    d:=A[i+1,k]+A[i,k];
30.                    end;
31.                    end;
32.               end;
33. writeln(d);
34. END.
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.
Top