Array113. Дан массив A размера N ≤ 6. Упорядочить его по возрастанию методом сортировки простым выбором: найти максимальный элемент массива и поменять его местами с последним (N-м) элементом; выполнить описанные действия N-1 раз, каждый раз уменьшая на 1 количество анализируемых элементов и выводя содержимое массива.
>Решение Pascal
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 | program Array113; var a : array [1..6] of real; N,i,i2,i3,Amax: integer; begin Write('N: '); Readln(N); Writeln('A: '); for i:=1 to N do begin write(i,' :'); readln(a[i]); end; for i:=N downto 2 do begin Amax:=1; for i2:=1 to i do if a[i2] >a[Amax] then Amax:=i2; if i<>Amax then begin a[i]:=a[Amax]+a[i]; a[Amax]:=a[i]-a[Amax]; a[i]:=a[i]-a[Amax]; end; for i3:=1 to N do writeln(a[i3]:7:0); readln; end; end. |
>
Решение C
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 | #include int main(void) { int a[20]; int n; printf("N: "); scanf("%i",&n); int i; for (i=0; i<n; ++i){ printf("a[%i] : ",i+1); scanf("%i",&a[i]); } int i2,i3,amax; for (i=n-1; i>0; --i){ amax=1; for (i2=0; i2<=i;++i2) { if (a[i2]>a[amax]){ amax=i2; } } if (i!=amax){ a[i]+=a[amax]; a[amax]=a[i]-a[amax]; a[i]-=a[amax]; } for (i3=0; i3<n;++i3) printf(" %i: %i\n",i3+1,a[i3]); printf("\n"); } return 0; } |