כי אין לי פסקל במחשב ואין לי כוח להוריד
אז מישהו יכול לבדוק אם זה עובד?? Program Myun; uses wincrt; const n=10; var a,b:array{1..n} of integer; i,j,minj,min:integer; begin For i:=1 to n do readln(a{i}); For i:=1 to n do begin min:=maxint-1; For j:=1 to n do if a{j}<min then begin min:=a{j}; minj:=j; end; b{i}:=min; a{minj}:=maxint; end; For i:=1 to n do write(b{i},' '); end.
|