Заменить элементы матрицы, лежащие ниже главной диагонали

Posted by obzor under Delphi

Все элементы матрицы X (n x n), лежащие ниже главной диагонали, заменить средним арифметическим элементов, значение которых меньше номера столбца.

newerow1989

const n=6;
var i,j,k:integer;
    sr:real;
    x:array[1..n,1..n] of real;
begin
   Randomize;
   For i:=1 to n do
   begin
      For j:=1 to n do
      begin
         x[ i,j]:=Random(10)+Random;
         Write(x[ i,j]:2:5,'  ');
      end;
      Writeln;
   end;
   Writeln;
   k:=0;
   sr:=0;
   For i:=1 to n do
      For j:=1 to n do
         If x[ i,j]<j then
         begin
            k:=k+1;
            sr:=sr+x[ i,j];
         end;
   sr:=sr/k;
   For i:=1 to n do
      For j:=1 to i-1 do
         x[ i,j]:=sr;
   For i:=1 to n do
   begin
      For j:=1 to n do
         Write(x[ i,j]:2:5,'  ');
      Writeln;
   end;
   Writeln;
   Readln;
end.

тема на форуме

Похожие статьи

• Поиск заданного числа в квадратной матрице
• Транспонирование целочисленной матрицы
• Одномерный массив из элементов матрицы
• Проход матрицы зизагом. Delphi
• Задача на матрицы (Pascal)