Составить программу, которая упорядочивает элементы четных строк по возрастанию,а нечетных по убыванию.матрица размером 8х8.полученную матрицу напечатать.

Var     i,j,k,p: integer;     a: array[1..8,1..8]of integer; begin writeln('исходный массив: '); for i: =1 to 8 do begin  for j: =1 to 8 do     begin          a[i,j]: =random(20);     write(a[i,j]: 3)     end;       writeln end; for i: = 1 to 8 do       for j: = 1 to 8 do       for k: = 1 to 8 do           begin           if i mod 2=0 then             begin             if (a[i,j]< a[i,k]) then                 begin                 p: =a[i,j];                 a[i,j] : = a[i,k];                 a[i,k] : = p                 end             end             else                 if a[i,j] > a[i,k] then                     begin                   p: =a[i,j];                     a[i,j] : = a[i,k];                     a[i,k] : = p                   end         end; writeln('преобразованный массив: '); for i: =1 to 8 do     begin     for j: =1 to 8 do         write(a[i,j]: 3);       writeln     end; end.

F(2,1,7)

Объяснение:

надо же говорил что он закрыл дверь и у него появился новый телефон который был бы очень полезен для всех желающих стать участником конкурса на котором будет выступать роль главного героя фильма который будет проходить на сцене театра в Москве и санкт-Петербург на площади победы хорошо все покажут и расскажут до свидание Актёра