Запишите пожалуйста сразу всё решение оч надо!
Для заданной квадратной матрицы сформировать одномерный масив из её диагональныхэлементов. Найти след матрицы, сумируя элементы однородного массива. Преобразовать исходную матрицу по правилу: чотные строки разделить на полученное значение, нечетные оставить без изменения. переобразованную матрицу вывести на экран.
Попробуй, так ли я понял...) )
var
matrix: array [1..100,1..100] of real;
arr: array [1..100] of real;
i, j, n, k: integer;
sled: real;
begin
write('Vvedite razmer matritsu: ');
readln(n);
randomize;
k:= 1;
sled:= 0;
for i:=1 to n do
for j:=1 to n do
begin
matrix[i,j]:= random(50);
if (i=j) then
begin
arr[k]:= matrix[i,j];
sled:= sled + arr[k];
inc(k);
end;
end;
writeln('Isxodnaya matritsa:');
for i:=1 to n do
begin
for j:=1 to n do
write(matrix[i,j]:10:2);
writeln;
end;
writeln ('Sled matristu raven ',sled:2:2);
writeln('Izmenennaya matritsa:');
for i:=1 to n do
begin
for j:=1 to n do
begin
if i mod 2 = 0 then matrix[i,j]:= matrix[i,j]/sled;
write(matrix[i,j]:10:2);
end;
writeln;
end;
readln;
end.
⇢