DSC00477

,1/zk ^'s    lOto^

«r

tv

tt

'fe/MĆjłoW 'jW U^lćJu^G, Jalldj kuaaf^ooej

program podprzckatna; uses crt; const k-10;

Ta6lica-ARRAY[1..k,l..k] of intcger; var

T:Tablica; z:Ryte;

'procedurę wprowadź(var T:TabHca;zl:Byte);

VAR

1,j:Byte;

Bogiń

writelnC wprowadź dane do Tablicy’); for i:-l to zl do for j:»l to zl do bcgin

wrTteCtCM.Wj.']-•);

Readln(T[i,] j); cnd; end;

Procedurę sum(var T:Tablica;zl:Bytc); var

i.jreyte; el_sum:integer; begin cl_sum:«0; for i:»1 to zl do for i:-l to zl do if i<j then

el_sum:=el_su»+T[i,j];    _n

WritelnC Suma lic$b na przekątnej wynosi ’,el_sum); end;

Begin Clrscr:

write(*Podaj rozmiar tablicy -’);

readlnfz);

idz(T,z);

wprowac sum(T.z);

Repeat until keypressed end.

*4k<ic

JCrhoj'; t&rhToOL-nte.

kE

dt

^ 1*5		I I			.. .
UL&cvŁMC/|	i i a	.n.lo.fzztfrM		i <
	u 1			)	/ '

a

<?o nam ic

'71

YAC. *vtf

c2^a?/(r^k2^|- -pc yu^cj. /^iGZsty 2o nśuc^i ovió-vi:

,a\ <iofi<yKć>y^a bc^oTko^e bj ^OY^o^aou.e    oo^°v

c)    Ucf /^e 2. *k?65 a^i ęnjw t

ryj 90^0°°®*>viC ^J^kxQ

jf&'}_aĄ(^ bć    Stoofeodoifyfc

^cxoiL^c5h .^e<?IL ohwś ]J | n<2- V> k? i ( /<.&■    (^ W²-    4o <Ua <A

jj|^<>    XO^to

^sj4Si

L ^TOyĄo^^-^2 f?vl^^ t,L.0^OmC .