Run Code
|
API
|
Code Wall
|
Users
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Blog
matrix - changing upper diagonal elements
const n = 7; const k = 7; var matrix: array [0..n-1,0..k-1] of integer; i,j:integer; begin for i:= 0 to n-1 do begin for j:= 0 to k-1 do begin matrix[i,j]:= 1; write(matrix[i,j]:2); end; writeln(); end; for i:= 0 to n-2 do for j:= n-1 downto i+1 do matrix[i,j]:= 0; writeln(); for i:= 0 to n-1 do begin for j:= 0 to k-1 do write(matrix[i,j]:2); writeln(); end; end.
run
|
edit
|
history
|
help
1
Please
log in
to post a comment.
Zadanie 3 б
Kim
ahoj
Квартира Задача 6.14 учебн. Грицанова
сумма чётных и нечётных чисел
Homework 1
Random Numbers
Find the greatest integers - v3
08 Ariketa
Zadanie 4
stackse - search stackoverflow differently
Please log in to post a comment.