// 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.
//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.
Животные могут получать зрительную информацию, слуховую, осязательную.
Растения получают информацию о местности, в которой находятся, будь то Суровая тундра или мягкий климат Кавказа.
С корней они могут получать инфу о количестве воды, которая им требуется и хватит ли ее.
Объяснение: