G2A Many GEOs
SHARE
TWEET

Untitled

a guest Apr 9th, 2020 149 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. program mewmew_ma_faka;
  2.  
  3. uses crt;
  4. var
  5.   A: array[1..2,1..2] of integer;
  6.   B: array[1..2,1..2] of integer;
  7.   i, j: integer;
  8.   f: file of integer;
  9.  
  10.  
  11.   begin
  12.  
  13.        {-----------------------------------------------------------------------}
  14.        for i:= 1 to 2
  15.        do  begin
  16.            for j:= 1 to 2
  17.            do  begin
  18.                  write('Enter an array element A[');
  19.                  write(i , ' , ' , j);
  20.                  write('] = ');
  21.                  readln(A[i,j])
  22.            end
  23.        end;
  24.        {-----------------------------------------------------------------------}
  25.        for i:= 1 to 2
  26.        do  begin
  27.            for j:= 1 to 2
  28.            do  begin
  29.                  write('Enter an array element B[');
  30.                  write(i , ' , ' , j);
  31.                  write('] = ');
  32.                  readln(B[i,j])
  33.            end
  34.        end;
  35.        {-----------------------------------------------------------------------}
  36.        Assign(f,'A.txt');
  37.        Rewrite(f);
  38.        for i:= 1 to 2
  39.        do  begin
  40.            for j:= 1 to 2
  41.            do  begin
  42.            write (f, A[i,j]);
  43.            end
  44.        end;
  45.  
  46.  
  47.        Assign(f,'B.txt');
  48.        Rewrite(f);
  49.        for i:= 1 to 2
  50.        do  begin
  51.            for j:= 1 to 2
  52.            do  begin
  53.            write (f, B[i,j]);
  54.            end
  55.        end;
  56.        {-----------------------------------------------------------------------}
  57.           Close(f);
  58.        {-----------------------------------------------------------------------}
  59.  
  60.  
  61.  
  62.        readln;
  63.  
  64.  
  65. end.
RAW Paste Data
Ledger Nano X - The secure hardware wallet
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. OK, I Understand
Top