как составить выходные и входные данные

[spbteam98]

ребят помогите составить грамотно входные выходные данные для проги на паскале

program kurs;
const
  m = 10;
  n = 10;
var
  B: array[1..m, 1..n] of INTEGER;
  C, SUM: array[1..m] of INTEGER;
  Bul_1: array[1..n] of BOOLEAN;
  Bul_2: array[1..m] of BOOLEAN;
  i, j, p: INTEGER;
begin
  Randomize;
  WriteLn('Initial matrix:');
  for i := 1 to m do
  begin
    for j := 1 to n do
    begin
      B[i, j] := Random(100) - 50;
      Write(B[i, j]: 5);
    end;
    WriteLn;
    WriteLn('The prescribed vector:');
    for i := 1 to m do
    begin
      SUM[i] := 0;
      C[i] := Random(10) - 5;
      Write(C[i]: 5);
    end;
    WriteLn;
    WriteLn('Press "Enter" to continue...');
    ReadLn;
    for j := 1 to n do
      Bul_1[j] := false;
    for j := 1 to n do
      for i := 1 to m do
        if B[i, j] < 0 then Bul_1[j] := true;
    WriteLn('Reformed matrix:');
    for i := 1 to m do
    begin
      for j := 1 to n do
      begin
        if Bul_1[j] then B[i, j] := C[i];
        Write(B[i, j]: 5);
      end;
      WriteLn;
    end;
    WriteLn;
    WriteLn('Press "Enter" to continue...');
    ReadLn;
    for i := 1 to m do
      Bul_2[i] := false;
    p := 0;
    for i := 1 to m do
      for j := 1 to n do
        if B[i, j] = 0 then
        begin
          Bul_2[i] := true;
          if (i mod 2) = 0 then
            INC(p);
        end;
    for i := 1 to (m div 2) do
      if Bul_2[2 * i] then
      begin
        for j := 1 to n do
          SUM[2 * i] := SUM[2 * i] + B[2 * i, j];
        WriteLn('SUM[', 2 * i, ']= ', SUM[2 * i]);
      end;
    if p = 0 then
      WriteLn('There are no even strings, containing zero elements');
    ReadLn;
  end;
end.

Заранее благодарен)))

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Serge_Bliznykov]

честно говоря, не понял вопроса, в чём, собственно заключается проблема?

может поясните, что у Вас не выходит?

[Stilet]

Серж, ему нужны тестовые данные. Он не знает что скормить проге чтоб показать ее преподавателям. Не он автор видать

[andrewpalkin]

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

Серж, ему нужны тестовые данные. Он не знает что скормить проге чтоб показать ее преподавателям. Не он автор видать

Ну так ему надо идти туда , где он ее взял

[Serge_Bliznykov]

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

Серж, ему нужны тестовые данные. Он не знает что скормить проге чтоб показать ее преподавателям.

А какие такие тестовые данные? трудно ввести тестовые данные в программу, которая не предусматривает ввод данных от пользователя - матрица заполняется случайными числами..
Или в этом и состоит вопрос? Как обеспечить ввод данных - заполнение матрицы пользователем программы?

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

Не он автор видать

ну, это и к бабке не ходи...

[Stilet]

Или в этом и состоит вопрос?

Пожалуй к бабке всетки придется идти

[Pein95]

закройте уже ету бредовую тему))

[Serge_Bliznykov]

закройте уже ету бредовую тему))

э нет....
мне хотелось бы выслушать автора топика...

[Pein95]

тема полный бред)