Найти среднее арифметическое каждой строки матрицы

@Skim666 · Регистрация: 04.06.2009

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

Задача:
Составьте программу вычисления среднего арифметического каждой строки матрицы В(N,N) и запишите данные значения в главную диагональ данной матрицы.

Добавлено через 33 секунды
помогите решить плз

@lexus_ilia · 04.06.2009, 07:35

Держите:

Pascal

Program xa;
uses
  crt;
type
 matr=array [1..30,1..30] of real;
 
Procedure PrintMatr(b:matr;n:integer);
var
  i,j:integer;
begin
  Writeln;
  for i:=1 to n do
  begin
    for j:=1 to n do
      Write(b[i,j]:6:2);
    Writeln;
  end;
end;
 
var
  b:matr;
  n,i,j:integer;
  Average:real;
begin
  repeat
    clrscr;
    Writeln('VVedite ra3mernoCtb matPuL/bl');
    readln(n);
  until n>1;
  Writeln;
  Writeln('VVedite elemenTbl matpuL/bl');
  for i:=1 to n do
    for j:=1 to n do
    begin
      Write('B[' ,i, ',' ,j, ']=');
      readln(b[i,j]);
    end;
  clrscr;
  Writeln('MatpuL/a do u3menenui');
  PrintMatr(b,n);
  for i:=1 to n do
  begin
    Average:=0;
    for j:=1 to n do
      Average:=Average+b[i,j];
    b[i,i]:=Average/n;
  end;
  Writeln('MatpuL/a posle u3menenui');
  PrintMatr(b,n);
  readln;
end.

@Skim666 · 04.06.2009, 07:40 **[ТС]**

спс

@Skim666 0 / 0 / 0 Регистрация: 04.06.2009 Сообщений: 4
		1
	Найти среднее арифметическое каждой строки матрицы 04.06.2009, 07:25. Показов 2700. Ответов 2 Метки нет (Все метки) Задача: Составьте программу вычисления среднего арифметического каждой строки матрицы В(N,N) и запишите данные значения в главную диагональ данной матрицы. Добавлено через 33 секунды помогите решить плз 0

@Skim666 0 / 0 / 0 Регистрация: 04.06.2009 Сообщений: 4
	04.06.2009, 07:40 [ТС]	3
	спс 0

Опции темы

Найти среднее арифметическое каждой строки матрицы

Решение