Напишите подпрограмму, определяющую наибольшее по модулю отклонение элементов двумерного массива от их среднего значения — Pascal(Паскаль)

program PascalGuru;

var
  A: array [1 .. 50, 1 .. 50] of integer; { объявление переменных }
  B: array [1 .. 100] of real;
  n, m, i, j, k: integer;
  sr, max: real;

  { ----------------------------------- }
begin
  write('N= ');
  readln(n);
  write('M= ');
  readln(m);

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

  writeln('Vvedennyi massiv:');
  for i := 1 to n do
  begin
    writeln;
    for j := 1 to m do
      write(A[i, j]:8);
  end;
  writeln;

  sr := 0;
  for i := 1 to n do
    for j := 1 to m do
      sr := sr + A[i, j];
  sr := sr / (n * m);

  k := 0;
  for i := 1 to n do
    for j := 1 to m do
    begin
      inc(k);
      B[k] := abs(sr - A[i, j]);
    end;

  max := B[1];
  for i := 2 to k do
    if B[i] > max then
      max := B[i];

  writeln;
  writeln('Rezult(max): ', max:0:3);

  readln;

end.

Leave a Comment

− 3 = 6