Var mas: array[1..9] of integer; max, min, i, j, k, n: integer; begin writeln('Массив до перестановки'); for i := 1 to 9 do begin mas[i] := random(11) - random(11); write(mas[i], ' '); end; writeln; max := mas[1]; min := mas[1]; k := 1; j := 1; for i := 1 to 9 do begin if mas[i] > max then begin max := mas[i]; j := i; end; if mas[i] < min then begin min := mas[i]; k := i; end; end; n := mas[j]; mas[j] := min; mas[k] := n; writeln('Масств после перестановки'); for i := 1 to 9 do write(mas[i], ' '); end.
Uses CRT; Const nmax=40; mmax=40; var a,b:array[1..nmax,1..mmax] of integer; i,j,n,m:integer; begin ClrScr; repeat write('N:='); Readln(n); until n in [1..nmax]; repeat write('M:='); Readln(m); until m in [1..mmax]; writeln('Исходный массив: '); randomize; for i:=1 to n do begin for j:=1 to m do begin a[i,j]:=random(10)-3; write(a[i,j]:5); b[i,j]:=a[i,j]*a[i,j]*a[i,j]; end; writeln; end; writeln('Результирующий массив: '); for i:=1 to n do begin for j:=1 to m do begin write(b[i,j]:5); end; writeln; end; readkey end.
x+(a/2)=(c/2) 2. Перенесём
x=(c/2)-(a-2) Готово. Теперь подставляем.
а) x=7/2-5/2
x=3,5-2,5=1
b) x=60
c)x=0