Какие виды информации получать животные , растения?​

Животные могут получать зрительную информацию, слуховую, осязательную.

Растения получают информацию о местности, в которой находятся, будь то Суровая тундра или мягкий климат Кавказа.

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

Объяснение:

// PascalABC.NET 3.0, сборка 1073
const
  nn=30;
  mm=30;
var
  a:array[1..mm,1..nn] of integer;
  m,n,i,j,imax,jmax:integer;
begin
  Writeln('Введите число строк и столбцов массива: '); Read(m,n);
  Randomize;
  Writeln('*** Исходный массив ***');
  imax:=1; jmax:=1;
  for i:=1 to m do begin
    for j:=1 to n do begin
      a[i,j]:=Random(51)-25;
      Write(a[i,j]:4);
      if a[i,j]>a[imax,jmax] then
        begin imax:=i; jmax:=j end
    end;
    Writeln
  end;
  for i:=1 to m do a[i,jmax]:=0;
  for j:=1 to n do a[imax,j]:=0;
  Writeln('*** Результирующий массив ***');
  for i:=1 to m do begin
    for j:=1 to n do Write(a[i,j]:4);
    Writeln
  end
end.

Тестовое решение:
Введите число строк и столбцов массива:
5 8
*** Исходный массив ***
  11 -10 -25 -25 -19  -3  -2   0
 -24   1   5 -25 -21 -16 -16 -22
 -21 -10 -12   7  20  16   0 -10
 -13  25 -18  18  -5   9  15   1
 -19 -10 -16   9 -11  11  24 -19
*** Результирующий массив ***
  11   0 -25 -25 -19  -3  -2   0
 -24   0   5 -25 -21 -16 -16 -22
 -21   0 -12   7  20  16   0 -10
   0   0   0   0   0   0   0   0
 -19   0 -16   9 -11  11  24 -19

//PascalABC.NET 3.1 сборка 1239
const
    n = 10;
    m = 10;

var
    i, j: integer;
    a, b: array[1..n, 1..m] of integer;
    f: boolean;

begin
    for i := 1 to n do
    begin
        for j := 1 to m do
        begin
            a[i, j] := random(50);
            write(a[i, j]:3, ' ');
        end;
        writeln;
    end;
    writeln;
    
    for i := 1 to n do
    begin
        f := false;
        for j := 1 to m do
        begin
            if not f and (a[i, j] mod 2 = 1) then begin
                a[i, j] := 2 * a[i, j];
                f := true;
            end;
            write(a[i, j]:3, ' ');
        end;
        writeln;
    end;
end.