Const n=10; type ar=array[1..n] of integer; procedure p1(var x:ar); var i:integer; begin for i:=1 to n do x[i]:=random(51); end;
procedure p2(h:char;var x:ar); var i:integer; begin writeln('---',h,'---'); for i:=1 to n do write(x[i]:4); writeln; end;
procedure p3(var x:ar; var min,imin:integer); var i:integer; begin min:=x[1]; imin:=1; for i:=2 to n do if x[i]<min then begin min:=x[i]; imin:=i; end; end;
var a,b : ar; m1,m2,im1,im2: integer; begin Randomize; p1(a); p2('a',a); p3(a,m1,im1); writeln('m1=',m1,' im1=',im1); p1(b); p2('b',b); p3(b,m2,im2); writeln('m2=',m2,' im2=',im2); if im2<n then begin b[im2+1]:=m1; p2('b',b); end else writeln('Минимальный элемент последний'); end.
папирус
дискета
бумага
винчестер