Pascal. сформировать квадратную матрицу a(nxn) , которую вывести. строки с отрицательным элементом на главной диагонали последовательно записать в файл . в конец файла дописать сумму первой и последней компонент, файл отпечатать.

Program dimamixali14; uses crt; const      n=10; var   s: string;   fly: text;   a: array [1..n,1..n] of integer;   i,j,k,summa: integer; begin   s: ='*** alphaeus is ***';   for i: =1 to length(s) do begin   write(s[i]);   for j: =1 to 500000 do s[i]: =s[i];   end;   writeln();   writeln('***           ok             ***');   writeln();   writeln(': ');   writeln('сформировать квадратную матрицу a(nxn), которую вывести. строки с отрицательным элементом на главной диагонали последовательно записать в файл. в конец файла дописать сумму первой и последней компонент, файл отпечатать.');   randomize;   assign(fly,'f.txt');   rewrite(fly); {заполняем и выводим матрицу}   writeln(); writeln('matrix: ');   for i: =1 to n do begin     for j: =1 to n do begin       a[i,j]: =random(101)-50;       write (a[i,j]: 3);     end;     writeln();   end;   writeln(); writeln(); {заполняем файл}   for i: =1 to n do begin     for j: =1 to n do begin       if(i=j) and (a[i,j]< 0) then         begin           for k: =1 to n do             write(fly,a[i,k]: 3);           writeln(fly, ' ');         end;     end;     end;   writeln();   writeln('file: ');   summa: =a[1,1]+a[n,n];   writeln(fly,'summa = ',summa);   s: =''; {выводим файл}   reset(fly);   while not eof (fly) do   begin     readln (fly, s);     writeln(s);   end;   close(fly); end.

решай сам

Объяснение:Решай сам а не думай чужими мозгами