Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
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
2
nomer2
xFiles
Giu
gfdresz
For7
Banyaknya huruf vokal
Projet1
Kacper
practica 6 ejercicio 2
registro de alunos, calculo de média