Технический форум - Помогите написать программу

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

- - Помогите написать программу (http://www.tehnari.ru/f41/t85813/)

Помогите написать программу

Задание 2
Создать текстовый файл, в который построчно записать квадратный массив massivnn, заполненный целыми случайными числами в диапазоне от v_min до v_max. Размер массива nзадать константой. Границы диапазона v_min и v_maxзадать с консоли. Прочитать из созданного файла все диагонали, параллельные главной, и вывести их на экран построчно. При чтении из файла считать размер массива неизвестным. Определить его при чтении файла.

Вот ты какой Максимка, ни языка программирования, ни здрасте, ни пожалуйста...

Воу.. извиняюсь.. с температурой лежу.. голова не варит.. пожалуйста помогите... очень надо((((

язык программирования какой?

паскаль.....(

Цитата:

Сообщение от максим777-777-7 (Сообщение 873356)

паскаль.....(

Вот. Имя файла и путь к нему поставьте, если надо, свои:

Код:

Const

 n=7;

Var

 v_min,v_max,v:Integer;

 i,j,k,t,Jmax,N1:byte;

 f:text;



Begin

 Assign(f,'D:\Massivnn');

 Rewrite(f);

 Write('v_min= ');

 Readln(v_min);

 Write('v_max= ');

 Readln(v_max);

 Randomize;

 for i:=1 to n do

  begin

   for j:=1 to n do

    begin

     v:=v_min+Random(v_max-v_min+1);

     write(f,v:4);

    end;

   writeln(f);

  end;

 Close(f);

 Reset(f);

 N1:=0;

 Repeat

  Read(f,v);

  Inc(N1);

 Until EoLn(f);

 Reset(f);

 for i:=1 to N1 do

  begin

   for j:=1 to N1 do

    begin

     Read(f,v);

     write(v:4);

    end;

   writeln;

  end;

 Writeln;

 For k:=N1 downto 1 do

  begin

   j:=k;

   repeat

    Reset(f);

    t:=0;

    repeat

     Inc(t);

     read(f,v);

    until t=j;

    write(v:4);

    Inc(j,N1+1);

    if (j mod N1)=0 then Jmax:=j;

   until j>Jmax;

   writeln;

  end;

 For k:=1 to N1-1 do

  begin

   i:=k*N1+1;

   repeat

    Reset(f);

    t:=0;

    repeat

     Inc(t);

     read(f,v);

    until t=i;

    write(v:4);

    Inc(i,N1+1);

   until i>N1*N1;

   writeln;

  end;

 Close(f);

 Readln

End.

Огромное вам спасибо:dog: