Обработка матриц

@Sasha711 · Регистрация: 11.05.2011

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

Задав двумерный массив вещественных данных (матрицу А), реализовать его обработку, как указано в варианте. Исходные данные задать самостоятельно, учитывая специфику задачи.
1) Найти среднее арифметическое из всех отрицательных элементов этой матрицы

@Mr.Y · 11.05.2011, 18:07

Pascal

Const
 n = 3;
Var
 a:array [1..n,1..n] of real;
 i,j,k:integer;
 sum:real;
 arifm:real;
Begin
 Writeln('Введите элементы матрицы: ');
 For i:=1 to n do
  For j:=1 to n do
   Read(a[i,j]);
 For i:=1 to n do
  For j:=1 to n do
   If a[i,j] < 0 then begin
                       sum:=sum+a[i,j];
                       inc(k);
                      End;
 arifm:=sum/k;
 Writeln('Среднее арифметическое: ',arifm:0:2);
End.

@Sasha711 · 12.05.2011, 10:32 **[ТС]**

Благодарю

@Monkey_2 · 12.05.2011, 10:36

Сообщение от Mr.Y

Pascal

Const
 n = 3;
Var
 a:array [1..n,1..n] of real;
 i,j,k:integer;
 sum:real;
 arifm:real;
Begin
 Writeln('Введите элементы матрицы: ');
 For i:=1 to n do
  For j:=1 to n do
   Read(a[i,j]);
 For i:=1 to n do
  For j:=1 to n do
   If a[i,j] < 0 then begin
                       sum:=sum+a[i,j];
                       inc(k);
                      End;
 arifm:=sum/k;
 Writeln('Среднее арифметическое: ',arifm:0:2);
End.

неплохо было бы перед тем как сумму щитать обнулить переменную sum:=0;

@Sasha711 0 / 0 / 0 Регистрация: 11.05.2011 Сообщений: 7
		1
	Обработка матриц 11.05.2011, 17:55. Показов 2721. Ответов 3 Метки нет (Все метки) Задав двумерный массив вещественных данных (матрицу А), реализовать его обработку, как указано в варианте. Исходные данные задать самостоятельно, учитывая специфику задачи. 1) Найти среднее арифметическое из всех отрицательных элементов этой матрицы 0

@Sasha711 0 / 0 / 0 Регистрация: 11.05.2011 Сообщений: 7
	12.05.2011, 10:32 [ТС]	3
	Благодарю 0

	12.05.2011, 10:36