Сор по какому изыку. 6 класс​

Сор по Информатике 6 класс

Объяснение:

Нечего нет вот ттвет

Const   m = 5; n = 10; a = 20; b = 80; // массив имеет размер mxn, интервал задан границами [a; b] var   i, j, max, outint, t, nt, ni: integer;   mas: array[1..m, 1..n] of integer; begin   randomize;   for i : = 1 to m do       for j : = 1 to n do           mas[i, j] : = random(100);   writeln('исходный массив');   for i : = 1 to m do   begin       for j : = 1 to n do           write(mas[i, j], ' ');       writeln;   end;   mas[i, j] : = random(100);   for i : = 1 to m do   begin       max : = -1; // все элементы полагаются неотрицательными       ni: =0;       for j : = 1 to n do       begin           t : = mas[i, j];           if t > max then begin               max : = t; nt : = j           end;           if ni = 0 then               if (t < = a) or (t > = b) then ni : = j       end;       if ni > 0 then begin           t : = mas[i, nt]; mas[i, nt] : = mas[i, ni]; mas[i, ni] : = t       end   end;   writeln('результирующий массив');   for i : = 1 to m do   begin       for j : = 1 to n do           write(mas[i, j], ' ');       writeln;   end end. пример выполнения программы в pascalabc.net исходный массив 34 56 89 27 71 0 64 89 80 36 15 59 95 54 37 15 81 64 48 39 89 42 71 55 97 80 48 65 98 55 85 27 45 39 37 74 98 7 7 31 28 56 14 3 45 39 98 19 93 4 результирующий массив 34 56 89 27 71 0 64 89 80 36 95 59 15 54 37 15 81 64 48 39 98 42 71 55 97 80 48 65 89 55 98 27 45 39 37 74 85 7 7 31 28 56 98 3 45 39 14 19 93 55