DSC00476

uses crt;

ta§lica-array[l..100,1..100] of intcger; var

tztablica;

k.wrbyte;

proceduro wprowadz(var t:tablica;ell,cl2:byte) var

i,j:byte; begin

wnteln('wprowadź el. do tablicy'); for i:=1 to ell do for j:**l to el2 do begin

"^r’teC'tr;.i readln(t[i,jj); end; end;

procedurę raax(var t:tablica;ell,el2:byte); var

maks:integer;

i.jrbyte;

begin

maks:-t[l,l]; w:«l;

end;

program oblicza w tab. el. max. i wypisuje ' ii ile chcesz wprowadzić el. do tablicy liczbę wierszy w^ ’);

liczbę kolumn k= ');

ego wartość oraz położenie

writeln('max el. to ' end; begin clrscr; writeln writeln. . wri te(' podaj readln(w); write(*podaj readln(k); wprowadź(t.w,k); raax(t.w.k);

repeat until keypressed end.

1				v^l			(lp
				0'	u*	£			Cą
B
i

uses crt;    ’

program _ta^bl1caio

type

tabl1ca-array[i..50,1..50]of byte; t:tablica:

clrscr:

^dlScS?*^{1 r02miar} k- •)!

for i:*1 to k do for j;-i to k do

end;

10:-0;

U:-0;

for i:-l to k do for i :«*l to k do

Yo:l\ki^U° ^th°"

else

U:-U+l:

'eL
Li. i

writeC*Liczba zer wynosi ',10,' a jedynek repeat until keypressed; end.

program tablicalO; uses crt;

taSlica-array[l..50,1..50]of integer var

trtablica; k, j,i:byte; suma:integer; begin

write(^!Podaj rozmiar tablicy k-

readln(k);

for i:-l to k do

for j:-l to k do

readln(t[i,]]);

for i:-l to k do for j:-l to k do if 1-3 then

wrTtćrsui^el!³położonych po przekątnej wynosi

repeat until keyprcssed;

end.

* ——