[LadySun]

Я очень плохо умею программировать, а работу надо непременно сдать! Я уже кое что сделала, но работа не закончена(точнее выполнена неверно), помогите пожалуйста доделать или переделать программу.

Задание: Даны: n, матрица a(2nx3n). Матрица a естественным образом разбивается на 6 блоков nxm

I II III
IV V VI

Поменять местами III и IV.
Исходные данные прочитать из файла. Результат вывести в новый файл.

Код:

program dinara;
{* 1 *}
var
   n: integer;
   i: integer;
   j: integer;
   a: array[1..1] of array[1..1] of integer;
{* begin *}
begin
    readln(n);

    for i:=1 to 2*n do
        begin
             for j:=1 to 3*n do
                 begin
                      write(1);
                 end;
             writeln('');
        end;

    readln(n);
end.

Admin: Учимся пользоваться тегами!

[hottabych23]

тебе всю программу или главный цыкл?

[hottabych23]

Вот и всё. Написал твою программу.
Тебе нужно добавить отзыв обо мне в правом окошке моего сообщения.
И если хочеш свой ид Вконтакте.
В папке с этой программой создаешь 2 файла 1 input.txt 2 output.txt.

Код:

const n=1;
var i,j,vrem:integer;  Matrix:array[1..2*n,1..3*n] of integer;  f,f1:text;
begin
     assign(f,'input.txt');
     assign(f1,'output.txt');
     reset(f);
     for i:=1 to 2*n do
     for j:=1 to 3*n do
     read(f,Matrix[i,j]);
     
     vrem:=Matrix[1,3*n];
     matrix[1,3*n]:=matrix[2*n,1];
     matrix[2*n,1]:=vrem;
     
     rewrite(f1);
     for i:=1 to 2*n do
     begin
          writeln(f1);
          for j:=1 to 3*n do
          write(f1,matrix[i,j],' ');
     end;
     close(f);
     close(f1);
end.