DSC00474

'MaSa.-

do ^;7(j (-kśtclbĄgk-)

rv\<Jcn^ (x) ub

od Odb ‘doi

program losowanie; useś crt;

ta§lica=array[l..6] of integer; var

a:tablica; i:byte; begin clrscr;

writelnC Program losuje 6 liczb

randowi ze;

for i:»l to 6 do

begin

a[i]:-random(48)+l; writeln(a[i] :6); end;

repeat until keypressed end.

C Cc- dc

to Y\

/>! , U*

i iG Vc ^

program dwirwym; uses crt; const wmax-10; kmax-10;

taili i ca-array [1. .mj_x. 1.. kmax]of i nteger;

tttablica; w,k:byte;

proceduro wprawadz(var t:tablica;ill,il2:byte); var

i.j-byte; begin

writelnC Wprowadź el. do tablicy’); for i :«1 to ill do for j:«l to il2 do

cnd;

end;

procedurę wypisz(var t:tablica; ill,il2:byte); var

i.jjbyte;

begin

writelnC wprowadzone el. do tablicy to: ’);

for i:=1 to ill do

for j:-l to i 12 do

writeln(’t[\i. V.j.’]-\t[i.j]);

end:

begin

clrscr;

writelnC Podał ile el. chcesz wprowadzić do tablicy’) write(’Podaj ilość wierszy w-’); readln(w)

wri t-n ( • Dn

writeCPodaj il. kolumn k-’)

readlnfk);

wprowadź(t,w,k);

wypisz(t.w.k);

repeat until keypressed

end.

^ ^vłc2'^Yaryvi

Ca Lwi

M id* ic