Исправленная программа: Program lab5; const n=11; type masiv=array[1..n]of integer; var l,k,m:masiv; i:integer; procedure vivod(mas:masiv); var i:integer; begin for i:=1 to n do write(mas[i],' '); writeln; end; procedure new_mas(var mas:masiv); var i,j:byte; min:integer; begin j:=1; min:=mas[1]; for i:=2 to n do if (min>mas[i]) then begin min:=mas[i]; j:=i; end; writeln('min = ',min); mas[j]:=mas[1]; mas[1]:=min; end; begin writeln('Дано:'); randomize; for i:=1 to n do begin l[i]:=random(-56,40); k[i]:=random(-56,40); end; write('массив L[',n,']: '); vivod(l); new_mas(l); write('измененный массив L[',n,']: '); vivod(l); write('массив K [',n,']: '); vivod(k); new_mas(k); write('измененный массив K[',n,']: '); vivod(k); for i:=1 to n do m[i]:=l[i]+k[i]; write('массив M[',n,']: '); vivod(m); end.