program kopiowanie_tablicy;

uses crt;

var a,b:array[1..10] of integer;

i:integer;

begin

clrscr;

randomize;

for i:=1 to 10 do

a[i]:=random(10);

writeln ('wygenerowano w tablicy a nastepujace liczby: ');

for i:=1 to 10 do

write('a[',i,']= ',a[i]:2,', ');

writeln;

writeln('teraz kopiujemy tablice z a do b ');

for i:=1 to 10 do

b[i]:=a[i];

writeln ('tabela b zawiera nastepujace liczby: ');

for i:=1 to 10 do

write('b[',i,']= ',b[i]:2,', ');

writeln;

writeln ('zestawienie tabeli a i b: ');

for i:=1 to 10 do

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

readln;

end.

program kopiowanie_tablicy;

uses crt;

var a,b:array[1..10] of integer;

i:integer;

begin

clrscr;

randomize;

for i:=1 to 10 do

a[i]:=random(10);

writeln ('wygenerowano w tablicy a nastepujace liczby: ');

for i:=1 to 10 do

write('a[',i,']= ',a[i]:2,', ');

writeln;

writeln('teraz kopiujemy tablice z a do b ');

for i:=1 to 10 do

b[i]:=a[i];

writeln ('tabela b zawiera nastepujace liczby: ');

for i:=1 to 10 do

write('b[',i,']= ',b[i]:2,', ');

writeln;

writeln ('zestawienie tabeli a i b: ');

for i:=1 to 10 do

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

readln;

end.

---