II ET-I Grupa: 1	Zespół Laboratoryjny:	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:
	7
	Data oddania sprawozdania:	Ocena:

program Project1;

{$APPTYPE CONSOLE}

type mac=array[1..10,1..8] of real;

type wek=array[1..8] of real;

var

a:mac;

b:wek;

procedure los( var aa:mac);

var

i,j:byte;

begin

writeln('Oto i nasz macierz');

writeln;

randomize;

for I := 1 to 10 do

for j := 1 to 8 do

aa[i,j]:=random(10)

end;

procedure wyswietl(var aa:mac);

var

i,j:byte;

begin

writeln;

writeln;

for I := 1 to 10 do

begin

for j := 1 to 8 do

write(aa[i,j]:0:0,' ');

writeln;

end;

end;

procedure zamiana( var aa:mac);

var

i,j:byte;

b:wek;

begin

for I := 1 to 8 do

begin

b[i]:=aa[i,5];

aa[i,5]:=aa[i,8];

end;

for I := 1 to 8 do

aa[i,8]:=b[i];

end;

procedure macb(var BB:wek; aa:mac );

var

i:byte;

begin

for i:=1 to 8 do

begin

b[i]:=3+a[2,i]/a[5,5];

writeln('b[',i,']=',b[i]:0:0);

end;

end;

begin

los(a);

wyswietl(a);

zamiana(a);

wyswietl(a);

macb(b,a);

readln;

{ TODO -oUser -cConsole Main : Insert code here }

end.