экзамен по массиву...

[^BaffY^]

Сообщение от Stilet

По-моему там все как раз по задаче...

ну это по-твоему а он говорит что задача совсем по другому решению сделана!

[Z1000000]

Прости, не могу понять условия!
Может он и сам их не понимает?

Может надо каждую строку отсортировать?
Нет пробелы отсортировать каждую строку вставкой. Но при чем здесь 3 символа.

[^BaffY^]

Сообщение от Z1000000

Прости, не могу понять условия!
Может он и сам их не понимает?

Может надо каждую строку отсортировать?
Нет пробелы отсортировать каждую строку вставкой. Но при чем здесь 3 символа.

скорее всего все осортировать....

[^BaffY^]

кстати, ему надо объяснить как эту программу делали, может тогда он её примет.... ну сам процесс...

[Z1000000]

ну попробуй вот это. Может пройдет...

program Laba;
var
 M : array[0..9] of String;
 indexmax,i,j,k : Integer;
 max : String[1];
 sTmp : Char;

begin
M[0]:='123dsgdsgvd';
M[1]:='124sgfdfshd';
M[2]:='125trnjfd';
M[3]:='126srg';
M[4]:='127lsmgl';
M[5]:='128sgrr';
M[6]:='129sdfhsd';
M[7]:='130sdrm';
M[8]:='131sdbrlk';
M[9]:='132dsvrs';

for i:= 0 to 9 do
 begin
 for j:=1 to Length(M[i])-1 do
  begin
  max := M[i][j];indexmax:=j;
  for k := j to Length(M[i]) do
   if max < M[i][k] then begin max := M[i][k];indexmax := k;end;
  if j <> indexmax then
   begin
   sTmp := M[i][j];M[i][j]:=M[i][indexmax];M[i][indexmax]:=sTmp;
   end;
  end;
 end;

// Вывод на экран
for i:=0 to 9 do
 writeln (M[i]);

end.

[^BaffY^]

Сообщение от Z1000000

ну попробуй вот это. Может пройдет...

program Laba;
var
 M : array[0..9] of String;
 indexmax,i,j,k : Integer;
 max : String[1];
 sTmp : Char;

begin
M[0]:='123dsgdsgvd';
M[1]:='124sgfdfshd';
M[2]:='125trnjfd';
M[3]:='126srg';
M[4]:='127lsmgl';
M[5]:='128sgrr';
M[6]:='129sdfhsd';
M[7]:='130sdrm';
M[8]:='131sdbrlk';
M[9]:='132dsvrs';

for i:= 0 to 9 do
 begin
 for j:=1 to Length(M[i])-1 do
  begin
  max := M[i][j];indexmax:=j;
  for k := j to Length(M[i]) do
   if max < M[i][k] then begin max := M[i][k];indexmax := k;end;
  if j <> indexmax then
   begin
   sTmp := M[i][j];M[i][j]:=M[i][indexmax];M[i][indexmax]:=sTmp;
   end;
  end;
 end;

// Вывод на экран
for i:=0 to 9 do
 writeln (M[i]);

end.

спасибки мне нужно ему разъяснить весь процесс, ведь он спросит как я "делала", что и как, и т.п.