II ET-I Grupa: 2	Zespół Laboratoryjny: 1.	Uniwersytet Rzeszowski, Wydział Matematyczno-Przyrodniczy, Instytut Techniki, Zakład Mechatroniki, Automatyki i Optoelektroniki.
Przedmiot:	PODSTAWY PROGRAMOWANIA
Imię i nazwisko studentów:	Nr sprawozdania:	Temat sprawozdania:
	3.	Tablice dynamiczne.
	Data oddania sprawozdania:	Ocena:
	03.04.2012

type

wek=array of integer;

type weka=array of real;

var

a:wek;

b:weka;

n:integer;

procedure podaj(var a:wek; var n:integer);

var

i:byte;

begin

writeln('podaj dlugosc wektora');

readln(n);

setlength(a,n);

for I := 1 to n do

begin

writeln('podaj elementy wektora',i);

readln(a[i]);

end;

end;

procedure wys(var a:wek;n:integer);

var

i:byte;

begin

for I := 1 to n do

write(a[i],' ');

end;

procedure tworzb( var b:weka;a:wek;n:integer);

var

i:byte;

k:integer;

begin

writeln;

writeln('podaj stala');

readln(k);

setlength(b,n);

for I := 1 to n do

begin

b[i]:=k*a[i]+4-k;

write(b[i]:0:0,' ');

end;

end;

function sr(var a:wek; n:integer):real;

var

s:real;

i:byte;

begin

s:=0;

for I := 1 to n do

begin

s:=s+a[i];

end;

sr:=s/n;

end;

function srb(b:weka;n:integer):real;

var

s:real;

i:byte;

begin

for I := 1 to n do

begin

s:=s+b[i];

end;

srb:=s/n;

end;

begin

podaj(a,n);

wys(a,n);

tworzb(b,a,n);

writeln;

writeln('srednia to:',sr(a,n):2:2);

writeln('srednia to :',srb(b,n):0:0);

readln;

end.