Транспонировать матрицу

@Скорпион · Регистрация: 05.12.2010

Author24 — интернет-сервис помощи студентам

Ввести матрицу А(n,n),транспонировать ее в матрицу В(n,n).Исходную и транспонированную матрицы вывести на экран монитора.Вычислить среднее арифметическое элементов каждой строки исходной матрицы и записать значения в одномерный массив С(n,n).Ввод массива А произвольный.Массив С(n,n) вывести на экран монитора.

@rangerx · 20.12.2010, 12:15

Pascal

program prog;
 
uses
  crt;
 
const
  N = 3;
 
var
  i, j: integer;
  c: array[1..N] of double;
  a: array[1..N, 1..N] of integer;
  b: array[1..N, 1..N] of integer;
 
begin
  Randomize;
  WriteLn('A(n,n): ');
  for i:= 1 to N do begin
    for j:= 1 to N do begin
      a[i,j]:= Random(10);
      Write(' ', a[i,j]);
    end;
    WriteLn;
  end;
 
  WriteLn;
 
  WriteLn('B(n,n):');
  for i:= 1 to N do begin
    for j:= 1 to N do begin
      b[i,j]:= a[j,i];
      Write(' ', b[i,j]);
    end;
    WriteLn;
  end;
 
  WriteLn;
 
  WriteLn('C(n):');
  for i:= 1 to N do begin
    c[i]:= 0;
    for j:= 1 to N do
      c[i]+= a[i,j];
    c[i]/= N;
    Write(' ', c[i]:0:1);
  end;
 
  Readkey;
end.

@Скорпион 0 / 0 / 0 Регистрация: 05.12.2010 Сообщений: 8
		1
	Транспонировать матрицу 20.12.2010, 08:49. Показов 1181. Ответов 1 Метки нет (Все метки) Ввести матрицу А(n,n),транспонировать ее в матрицу В(n,n).Исходную и транспонированную матрицы вывести на экран монитора.Вычислить среднее арифметическое элементов каждой строки исходной матрицы и записать значения в одномерный массив С(n,n).Ввод массива А произвольный.Массив С(n,n) вывести на экран монитора. 0

	20.12.2010, 12:15

Опции темы

Транспонировать матрицу

Решение