Заменить все отрицательные элементы массива нулём, а положительные - средним арифметическим массива

@Yungmusasi · Регистрация: 08.10.2017

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

Задача: Заменить все отрицательные элементы массива - нулём, а положительные - средним арифметическим массива.
Вопрос:

Pascal

uses crt;
const n=5;
var a,b: array [1..n,1..5] of integer;
    i,j: byte;
begin
writeln('исходный массив');
for i:=1 to n do
    begin
    for j:=1 to n do
        begin
        a[i,j]:=random(19)-9;
        write(a[i,j]:3);
        if a[i,j]<0 then b[i,j]:=0 else b[i,j]:=a[i,j];
        end;
    writeln;
    end;
writeln('Массив В');
for i:=1 to n do
    begin
    for j:=1 to n do
        write(b[i,j]:3);
    writeln;
    end;
readln;
end.

Первую часть сделал - заменить все отрицательные элементы на 0, а как поступать с к - нет идей...

@Соколиный глаз · 29.10.2017, 16:54

Pascal

const
  N = 3;
  M = 3;
 
var
  A: array [0..N - 1, 0..M - 1] of integer;
  B: array [0..N - 1, 0..M - 1] of real;
  Average: real;
 
begin
  for var i := 0 to N - 1 do
    for var j := 0 to M - 1 do
    begin
      Readln(A[i, j]);
      Average += A[i, j];
      B[i, j] := Ord(A[i, j] >= 0) * A[i, j];
    end;
  
  Average := Average / (N * M);
  for var i := 0 to N - 1 do
    for var j := 0 to M - 1 do
      if A[i, j] > 0 then
        B[i, j] := Average;
  
  for var i := 0 to N - 1 do
  begin
    for var j := 0 to M - 1 do
      Write(B[i, j]:8:2);
    Writeln();
  end;
end.

Добавлено через 2 минуты
При замене на 0 достаточно:

Pascal

1	B[i, j] := Ord(A[i, j] >= 0) * A[i, j];

Добавлено через 43 секунды
Для неотрицательных Ord вернет 1, что означает, что мы не меняем A[i, j], но если элемент отрицательный, то Ord вернет 0 и на выходе будет 0.

@Yungmusasi · 29.10.2017, 17:46 **[ТС]**

Сообщение от Volobuev Ilya

При замене на 0 достаточно:
PascalВыделить код
1
B[i, j] := Ord(A[i, j] >= 0) * A[i, j];

Боюсь, что препод не поймёт меня, Average - ещё не проходили. Сейчас этап изучения одно- и двух- мерных массивов. С Вашего ответа немного понял, как среднее арифметическое сделать, но всё остался на прежнем месте, код так и не соображу..

Добавлено через 40 минут
Вот, сделал сам, всё работает.

Pascal

uses crt; 
const n=5; 
var a,b: array [1..n,1..n] of real; 
sum: array [1..n] of real;
i,j: byte; 
begin 
    writeln('Исходный массив: '); 
    for i := 1 to n do 
    begin 
        sum[i] :=0;
        for j := 1 to n do 
        begin 
            a[i, j] := random(19) - 9; 
            write(a[i, j]:5); 
            sum[i] := sum[i] + a[i, j];
        end; 
        sum[i] := sum[i] / n;
        writeln; 
    end; 
    
    for i := 1 to n do 
    begin 
        for j := 1 to n do 
        begin
            if a[i, j] < 0 then 
                b[i, j] := 0 
            else 
                b[i, j] := sum[i];  
        end; 
        writeln; 
    end;    
     
    writeln('Обработанный массив: '); 
    for i := 1 to n do 
    begin 
        for j := 1 to n do 
            write(b[i, j]:5); 
        writeln; 
    end; 
    readln; 
end.

@volvo · 29.10.2017, 17:51

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

Average - ещё не проходили

А i проходили? А j? Точно такое же имя переменной - Average...

Добавлено через 3 минуты

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

всё работает

"Работает" и "работает правильно" - это разные вещи. Вот вышеприведенный код - просто работает. Потому что в задаче требуется найти среднее арифметическое всего массива, и заменить им все положительные элементы. А ты меняешь их на среднее арифметическое строки, а не массива.

@Соколиный глаз · 29.10.2017, 17:56

Yungmusasi, так что еще в моем коде не понятно?

Добавлено через 2 минуты

Не по теме:

Вот еще примеры кода обработки массивов без условных операторов:
1 - Замена отрицательных элементов на неотрицательные

Pascal

const
  N = 5;
  M = 5;
 
var
  A: array [0..N - 1, 0..M - 1] of integer;
 
procedure Print(d: integer);
begin
  for var i := 0 to N - 1 do
  begin
    for var j := 0 to M - 1 do
      Write(A[i, j]:d);
    Writeln();
  end;
  Writeln();
end;
 
begin
  for var i := 0 to N - 1 do
    for var j := 0 to M - 1 do
      A[i, j] := -10 + Random(20);
  
  Print(4);
  
  for var i := 0 to N - 1 do
    for var j := 0 to M - 1 do
      A[i, j] := (1 - 2 * Ord(A[i, j] < 0)) * A[i, j];
  
  Print(4);
end.

2 - Удвоить положительные элементы

Pascal

const
  N = 5;
  M = 5;
 
var
  A: array [0..N - 1, 0..M - 1] of integer;
 
procedure Print(d: integer);
begin
  for var i := 0 to N - 1 do
  begin
    for var j := 0 to M - 1 do
      Write(A[i, j]:d);
    Writeln();
  end;
  Writeln();
end;
 
begin
  for var i := 0 to N - 1 do
    for var j := 0 to M - 1 do
      A[i, j] := -10 + Random(20);
  
  Print(4);
  
  for var i := 0 to N - 1 do
    for var j := 0 to M - 1 do
      A[i, j] := (1 + Ord(A[i, j] > 0)) * A[i, j];
  
  Print(4);
end.

@volvo · 29.10.2017, 18:13

Сообщение от Volobuev Ilya

Pascal

1	A[i, j] := (1 - 2 * Ord(A[i, j] < 0)) * A[i, j];

Это теперь так строка

Pascal

1	A[i, j] := Abs(A[i, j]);

записывается?

@Соколиный глаз · 29.10.2017, 18:20

Добавлено через 16 секунд
Если без использования Abs - да.

@volvo Супер-модератор 32793 / 21133 / 8144 Регистрация: 22.10.2011 Сообщений: 36,393 Записей в блоге: 8
	29.10.2017, 17:51	4
	Сообщение от Yungmusasi Average - ещё не проходили А `i` проходили? А `j`? Точно такое же имя переменной - Average... Добавлено через 3 минуты Сообщение от Yungmusasi всё работает "Работает" и "работает правильно" - это разные вещи. Вот вышеприведенный код - просто работает. Потому что в задаче требуется найти среднее арифметическое `всего массива`, и заменить им все положительные элементы. А ты меняешь их на среднее арифметическое `строки`, а не массива. 0

@Соколиный глаз Alvin Seville 342 / 272 / 134 Регистрация: 25.07.2014 Сообщений: 4,537 Записей в блоге: 9
	29.10.2017, 18:20	7
	Добавлено через 16 секунд Если без использования Abs - да. 0

Опции темы