Матрица среднее арифметическое

@romeg · Регистрация: 01.04.2012

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

Дана матрица А, 3 строки 5 столбцов, определить среднее арифметическое элементов каждой строки.

@Тамила · 26.03.2013, 16:33

Pascal

uses crt;
var
a:array[1..3,1..5]of integer;
i,j:integer;
sum:real;
begin
 clrscr;
 randomize;
 for i:=1 to 3 do
 for j:=1 to 5 do
 a[i,j]:=random(10);
 for i:=1 to 3 do
  begin
   for j:=1 to 5 do
   write(a[i,j],'  ');
   writeln;
  end;
 for i:=1 to 3 do
  begin
   for j:=1 to 5 do
    begin
     sum:=sum+a[i,j];
    end;
   writeln(sum/5:2:2);
  end;
 readkey;
end.

@romeg · 26.03.2013, 16:58 **[ТС]**

а что бы цифры самому вводить а не случайные.. как программа будет выглядеть?

@StrelokCj · 26.03.2013, 17:19

Вместо:

Pascal

1	a[i,j]:=random(10);

Заменить на:

Pascal

1	readln(a[i,j]);

@Тамила · 26.03.2013, 18:36

Pascal

uses crt;
var
a:array[1..3,1..5]of integer;
i,j:integer;
sum:real;
begin clrscr;
 for i:=1 to 3 do
 for j:=1 to 5 do
  begin
   write('a[',i,',',j,']=');
   readln(a[i,j]);
  end;
 for i:=1 to 3 do
  begin
   for j:=1 to 5 do
   write(a[i,j],'  ');
   writeln;
  end;
 for i:=1 to 3 do
  begin
   for j:=1 to 5 do
    begin
     sum:=sum+a[i,j];
    end;
   writeln(sum/5:2:2);
  end;
 readkey;
end.

@romeg · 26.03.2013, 18:54 **[ТС]**

вроде все работает только когда выводит среднее арифметическое 2 строки он результат прибавляет к среднему арифметическому 1 строки. и когда для 3 строки выводит среднее арифметическое результат прибавляеться к сумме средних арифметических 1 и 2 ой строки. Можно как то изменить что бы конкретно показывало среднее арифметическое каждой строки?

Kodzaev · 26.03.2013, 19:23

Pascal

Const
  n=3;
  m=5;
Var
  a: Array[1..n,1..m] of Integer;
  i,j: Byte;
  s: Integer;
BEGIN
Writeln('Введите матрицу: ');
For i:=1 to n do
For j:=1 to m do
Readln(a[i,j]);
For i:=1 to n do
begin
  s:=0;
  For j:=1 to m do
  begin
    Write(a[i,j],' ');
    s:=s+a[i,j]
  end;
  Write('   ',s/m:2:2);
  Writeln;
end;
Readln
END.

@Тамила · 26.03.2013, 19:25

Pascal

uses crt;
var
a:array[1..3,1..5]of integer;
i,j:integer;
sum:real;
begin
 for i:=1 to 3 do
 for j:=1 to 5 do
  begin
   write('a[',i,',',j,']=');
   readln(a[i,j]);
  end;
 for i:=1 to 3 do
  begin
   for j:=1 to 5 do
   write(a[i,j],'  ');
   writeln;
  end;
 sum:=0;
 for i:=1 to 3 do
  begin
   sum:=0;
   for j:=1 to 5 do
    begin
     sum:=sum+a[i,j];
    end;
   writeln(sum/5:2:2);
  end;
readkey;
end.

@romeg · 26.03.2013, 22:46 **[ТС]**

спасибо Тамила !

@romeg 0 / 0 / 0 Регистрация: 01.04.2012 Сообщений: 17
		1
	Матрица среднее арифметическое 26.03.2013, 16:22. Показов 514. Ответов 8 Метки нет (Все метки) Дана матрица А, 3 строки 5 столбцов, определить среднее арифметическое элементов каждой строки. 0

@romeg 0 / 0 / 0 Регистрация: 01.04.2012 Сообщений: 17
	26.03.2013, 16:58 [ТС]	3
	а что бы цифры самому вводить а не случайные.. как программа будет выглядеть? 0

@romeg 0 / 0 / 0 Регистрация: 01.04.2012 Сообщений: 17
	26.03.2013, 18:54 [ТС]	6
	вроде все работает только когда выводит среднее арифметическое 2 строки он результат прибавляет к среднему арифметическому 1 строки. и когда для 3 строки выводит среднее арифметическое результат прибавляеться к сумме средних арифметических 1 и 2 ой строки. Можно как то изменить что бы конкретно показывало среднее арифметическое каждой строки? 0

@romeg 0 / 0 / 0 Регистрация: 01.04.2012 Сообщений: 17
	26.03.2013, 22:46 [ТС]	9
	спасибо Тамила ! 0