Операции с матрицей. Замена Элемента на Среднее Арифметическое

@AntonD · Регистрация: 02.04.2011

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

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

Вот что сделал:

uses crt;
var
a: array [1..10] of integer;
x: array [1..10] of integer;
s: real;
sum,m,n,i,,o,q,p: integer;
begin
clrscr;
writeln ('Введите число строк и число столбцов');
readln (m,n);
o:=m*n; // Число элементов матрицы
for i:=1 to o do
begin
write ('a[',i,']=');
readln (a[i]);
end;
sum:=0
for i:=1 to o do
sum:= sum+a[i];
s:=sum/o; // Среднее арифметическое
writeln ('Среднее арифметическое равно: ',s);
read;
begin
writeln ('Введите элемент матрицы с индексами Q,P');
read (q,p);
........................
........................ // Здесь не знаю
........................
end;
End.

Скажите, как прожолжить, если возможно. Или надо как-то по-другому?

@the_crow · 02.04.2011, 10:46

теги не забывай расставлять.

Сообщение от AntonD

a: array [1..10] of integer;
x: array [1..10] of integer

Pascal

1	a: array [1..10,1..10] of integer;

for i:=1 to o do
begin
write ('a[',i,']=');
readln (a[i]);

Pascal

for i:=1 to m do
for j:=1 to n do
begin
write ('a[',i,',',j,']=');
readln (a[i,j]);
end;

for i:=1 to o do
sum:= sum+a[i];

Pascal

1
2
3

for i:=1 to m do
for j:=1 to n do
sum:=sum+a[i,j];

........................
........................ // Здесь не знаю
........................

Pascal

a[q,p]:=s;
for i:=1 to m do
begin for j:=1 to n do
write(a[i,j]); writeln;
end;
readln;

вроде б так.. не проверял=)

HighPredator · 02.04.2011, 10:48

Что-то такое:

Pascal

const
  M=5;
  N=4;
 
var
  A:array [1..N,1..M] of real;
  i,j:integer;
  K,B:integer;
  sarifm:real;
 
begin
  sarifm:=0;
  writeln('Enter matrix:');
  for j:=1 to M do
  begin
    for i:=1 to N do
    begin
      write('A[',i,',',j,']=');
      readln(A[i,j]);
      sarifm:=sarifm+A[1,j];
    end;
  end;
  sarifm:=sarifm/(M*N);
  write('Enter K=');
  readln(K);
  write('Enter B=');
  readln(B);
  A[K,B]:=sarifm;
  for j:=1 to M do
  begin
    for i:=1 to N do write(A[i,j]:6:4,' ');
    writeln;
  end;
  readln;
end.

@AntonD 0 / 0 / 0 Регистрация: 02.04.2011 Сообщений: 3
		1
	Операции с матрицей. Замена Элемента на Среднее Арифметическое 02.04.2011, 10:28. Показов 1022. Ответов 2 Метки нет (Все метки) Найти среднее арифметическое исходной матрицы и заменить на него элемент стоящий в позиции с индексами К,В в полученной матрице (К,В вводятся с клавиатуры). Вывести на экран полученную матрицу. Вот что сделал: uses crt; var a: array [1..10] of integer; x: array [1..10] of integer; s: real; sum,m,n,i,,o,q,p: integer; begin clrscr; writeln ('Введите число строк и число столбцов'); readln (m,n); o:=mn; // Число элементов матрицы* for i:=1 to o do begin write ('a[',i,']='); readln (a[i]); end; sum:=0 for i:=1 to o do sum:= sum+a[i]; s:=sum/o; // Среднее арифметическое writeln ('Среднее арифметическое равно: ',s); read; begin writeln ('Введите элемент матрицы с индексами Q,P'); read (q,p); ........................ ........................ // Здесь не знаю ........................ end; End. Скажите, как прожолжить, если возможно. Или надо как-то по-другому? 0

	02.04.2011, 10:48

Операции с матрицей. Замена Элемента на Среднее Арифметическое

Решение