Паскаль АВС, сортировка в одномерном массиве без функций и операций
Помогите ,пожалуйста, осталась одна задача для зачета!!!Отсортировать вставкой в одномерном массиве по убыванию только элементы,стоящие на четных позициях( было например 783259, а стало 793852.Что здесь не так, исправьте,пожалуйста
program ryryr; uses crt; var a: array [1..5] of integer; j,k,x:integer; begin for k:=1 to 5 do begin write('a[',k,']='); readln(a[k]); end; For k:=2 To 5 Do Begin x:=A[k]; j:=k-1; While (j>0) And (x>A[j]) do begin a[j+1]:= a[j]; dec(j); end; a[j+1]:=x; end; for k:= 1 to 5 do write(a[k],' '); end. |
http://www.tehnari.ru/f41/t73561/
И уже как модератор предупреждаю - дублирование и клонирование тем у нас наказуемо. |
Часовой пояс GMT +4, время: 03:06. |
Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.