Elżbieta Arciszuk

Program_tablica.

const

n=500;

var

tab:array[1..n] of integer;

i:integer;

k:integer;

begin

randomize;

for i:=1 to n do

begin

tab[i]:=random(10);

end;

for i=1 to n do

write(tab[i],' `);

writeln(` podaj liczbe by moc sprawdzic ile jest jej w tablicy `,k);

readln(k);

k:=0;

for i:=1 to n do;

begin

k:=k+tab[k];

end;

writeln(`ilosc liczb w tablicy wynosi: `,k);

readln;

end.