Const N = 10; var arr: array[1..N] of integer; i, j, k: integer; begin randomize; for i:=1 to N do begin arr[i] := random(256); write (arr[i]:4); end; writeln; for i:=1 to N-1 do for j:=1 to N-i do if arr[j] > arr[j+1] then begin k := arr[j]; arr[j] := arr[j+1]; arr[j+1] := k end; for i:=1 to N do write (arr[i]:4); writeln; end. Вот задание.Отсортировать в двумерном массиве целых случайных чисел только четные строки. Использовать метод пузырьковой сортировки. Исправьте плиз
Только четные строки - в смысле, четные элементы массива?
А, простите, двумерный массив. Просто в программе он линейный
я эту программу просто нашла, что то типо того
??var arr:array[1..M,1..N] of integer;i,j,k,l:integer;...for l := 1 to M div 2 dofor i := 1 to N-1 dofor j := 1 to N-i doif arr[l,j] > arr[l,j+1] then begink := arr[l,j];arr[l,j] := arr[l,j+1];arr[l,j+1] := k...
Опять поторопился. Во всех индексах должно быть l*2 вместо l
Решение в прикрепленном файле.
а там тока четные?
Только четные, запустите программу и будет видно.
а можете комментарии написать, как сделано, что? как? чтоб я все поняла
и он почему то не сортируется, как был так и остается
исходный массив 137 77 53 108 208 11 149 186 158 153 145 149 200 120 136 118 отсортированный массив 137 77 53 108 11 149 186 208 158 153 145 149 118 120 136 200 У меня все сортируется, размерность массива уменьшил до 4 , а то не войдет в поле ответа
Отсортированы по возрастанию 2 и 4 строки массива
а 1 и 3 строки че это? они так и должны быть?
В условии написано: отсортировать строки с ЧЕТНЫМИ номерами (2,4,6 ....)
Ааааа, точно, спасибо, аа комментарии можете написать, что да как сделано ?