Advertisement
knyazer

Untitled

Dec 17th, 2019
128
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.41 KB | None | 0 0
  1. type
  2.   arrayType = array[1..n] of integer;
  3.   array2D = array[1..n] of arrayType;
  4.  
  5. var
  6.   arr : array2D;
  7.   i, j : integer;
  8.  
  9. begin  
  10.   for i := 1 to n do for j := 1 to n do readln(arr[i][j]);
  11.  
  12.   for j := 1 to n do for i := 1 to n do
  13.   begin
  14.    if (i > n - j + 1) then
  15.     arr[i][j] := 0
  16.    else
  17.      arr[i][j] *= 2;
  18.   end;
  19.  
  20.  
  21.   for i := 1 to n do for j := 1 to n do writeln(arr[i][j]);
  22.  
  23. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement