Вообще то формулировка насчет одномерного массива в матрице очень крутая.
| Код |
Var
Matr: Array [1..4,1..4] Of Single;
Vect: Array [1..4] Of Single;
I,J: Integer;
S: Single;
Begin
//Заполняем матрицу
Randomize;
For I:=1 To 4 Do
For J:=1 To 4 Do
Matr[I,J]:=Random;
//Копируем диагональные элементы в массив
For I:=1 To 4 Do
Vect[I]:=Matr[I,I];
// Считаем след матрицы
S:=0;
For I:=1 To 4 Do
S:=S+Vect[I];
//Делим
For I:=1 To 4 Do
For J:=1 To 4 Do
Matr[I,J]:=Matr[I,J]/S;
End;
|
Этот код точно соответсвует заданию, хотя и предельно не эффективен. |
незнаю как это делать задание