Версия для печати темы

Автор: Nerd 13.06.2007 21:24

Даны два массива MxK и MxT. Переписать элементы этих массивов в третий массив так, чтобы строки в третьем массиве получились упорядоченными по возростающей.

Вот что у меня получилось. Проблема у меня в том, что в в конце на экран не выводится содержимое третьего массива - "С".
Помогите исправить плз...

uses Crt;

const T=3;
      K=4;
      M=5;
var a:array [1..M, 1..K] of integer;
    b:array [1..M, 1..T] of integer;
    c:array [1..M, 1..T+K] of integer;
    i,j,e, temp:Integer;
begin
  for i:=1 to M do
    for j:=1 to K do
    begin
      readln(a[i, j]);
      c[i, j]:=a[i, j];
    end;
  for i:=1 to M do
    for j:=1 to T do
    begin
      readln(b[i, j]);
      c[i, j+K]:=b[i, j];
    end;
  Writeln('mas a');
  for i:=1 to M do
  begin
    for j:=1 to K do
      Write(a[i, j], ' ');
    Writeln;
  end;
  Writeln('mas b');
  for i:=1 to M do
  begin
    for j:=1 to T do
      Write(b[i, j], ' ');
    Writeln;
  end;
  Writeln('mas c');
  for i:=1 to M do
  begin
    for j:=1 to T+K do
      Write(c[i, j], ' ');
    Writeln;
  end;
  for e:=1 to M do
    for i := 1 to T+K-1 do
      for j := 1 to T+K-i do
        if (c[e, j] > c[e, j+1]) then
        begin
          temp := c[e, j];
          c[e, j] := c[e, j+1];
          c[e, j+1] := temp;
        end;
  Writeln('res mas c');
  for i:=1 to M do
  begin
    for j:=1 to T+K do
      Write(c[i, j], ' ');
    Writeln;
  end;
  readln;
end.

Автор: Nerd 13.06.2007 22:50

Уже разобрался. Протсо прр вводе элементов массива нужно было использовать оператор ввода read а не readln