Замена всех отрицательных элементов на среднее арифметическое значение элементов массива

@Светлана25 · Регистрация: 17.02.2013

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

Ввести двумерный массив А(N,N).Составить программу замены всех отрицатель-ных элементов на среднее арифметическое значение элементов массива.

@ildwine · 18.11.2013, 12:22

Pascal

const
  n = 6;  
type mas = array[1..n,1..n] of real;
var
  a : mas;
  i, j : integer;
  s : real;
begin
  s := 0;
  writeln('матрица:');
  randomize;
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      a[i,j] := random(20) - 10;
      write(a[i,j]:6:1);
      s := s + a[i,j]
    end;
    writeln
  end;
  s := s / sqr(n); {среднее}
  writeln('новая матрица:');
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      if a[i,j] < 0 then a[i,j] := s;
      write(a[i,j]:6:1)
    end;
    writeln
  end;
  readln
end.

@Светлана25 0 / 0 / 0 Регистрация: 17.02.2013 Сообщений: 73
		1
	Замена всех отрицательных элементов на среднее арифметическое значение элементов массива 18.11.2013, 12:08. Показов 1979. Ответов 1 Метки нет (Все метки) Ввести двумерный массив А(N,N).Составить программу замены всех отрицатель-ных элементов на среднее арифметическое значение элементов массива. 0

	18.11.2013, 12:22

Замена всех отрицательных элементов на среднее арифметическое значение элементов массива

Решение