Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- type
- arrayType = array[1..n] of integer;
- array2D = array[1..n] of arrayType;
- var
- arr : array2D;
- i, j : integer;
- begin
- for i := 1 to n do for j := 1 to n do readln(arr[i][j]);
- for j := 1 to n do for i := 1 to n do
- begin
- if (i > n - j + 1) then
- arr[i][j] := 0
- else
- arr[i][j] *= 2;
- end;
- for i := 1 to n do for j := 1 to n do writeln(arr[i][j]);
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement