Var m,n,i,j,max,min,imx,imn,jmn,jmx,k,p:integer; s:real; a:array[,]of integer; begin write('Число строк: '); readln(m); write('Число столбцов: '); readln(n); setlength(a,m+1,n+1); for i:=1 to m do begin writeln('Вводите элементы строки ',i,' по одному'); for j:=1 to n do readln(a[i,j]); end; min:=a[1,1]; max:=a[1,1]; imn:=1; jmn:=1; imx:=1; jmx:=1; for i:=1 to m do for j:=1 to n do begin if a[i,j]<min then begin min:=a[i,j]; imn:=i; jmn:=j; end; if a[i,j]>max then begin max:=a[i,j]; imx:=i; jmx:=j; end; end; p:=a[imn,jmn]; a[imn,jmn]:=a[imx,jmx]; a[imx,jmx]:=p; writeln('Измененный массив:'); for i:=1 to m do begin for j:=1 to n do write(a[i,j]:5); writeln; end; write('Введите номер строки: '); readln(i); for j:=1 to n do if a[i,j]<0 then begin s:=s+a[i,j]; k:=k+1; end; writeln('Ср.ариф. отр.чисел в строке: ',s/k); end.
var a: array[1..m1, 1..n1] of integer; b: array[1..m1] of real; i, j, m, n, max, min, t, imax, jmax, imin, jmin, s, kn: integer;
begin Write('Введите через пробел число строк и столбцов массива: '); Readln(m, n); max := -32768; min := 32767; for i := 1 to m do begin Write('Строка ', i, ': '); for j := 1 to n do begin Read(t); a[i, j] := t; if max < t then begin max := t; imax := i; jmax := j end else if min > t then begin min := t; imin := i; jmin := j end end end; a[imax, jmax] := min; a[imin, jmin] := max; Writeln('Результирующий массив'); for i := 1 to m do begin s := 0; kn := 0; for j := 1 to n do begin Write(a[i, j]:6); if a[i, j] < 0 then begin s := s + a[i, j]; Inc(kn) end end; Writeln; if kn > 0 then b[i] := s / kn else b[i] := 0 end; Writeln('Среднее арифметическое отрицательных элементов построчно:'); for i := 1 to m do Writeln(b[i]:10:4) end.
1110000(2) + 100(2) = 1110100(2)
В ответ впиши: 1110100