Uses Crt; const n=5; m=7; type Mas = array [1..n, 1..m] of integer; var i, j, j1, j2: integer; Sumj1, Sumj2: real; A: Mas; begin ClrScr; Randomize; SumJ1:=0; SumJ2:=0; for i:=1 to n do for j:=1 to m do A[i,j]:=random (10); WriteLn (' Massiv A: '); for i:=1 to n do begin for j:=1 to m do Write (A[i,j]:4); WriteLn; end; WriteLn; repeat Write (' Stolbez #1 = '); ReadLn(j1); until (j1>=1) and (j1<=m); repeat Write (' Stolbez #2 = '); ReadLn(j2); until (j2>=1) and (j2<=m) and (j1<>j2); for i:= 1 to n do SumJ1 := SumJ1+A[i,j1]; for i:= 1 to n do SumJ2:=SumJ2+A[i,j2]; SumJ1:=SumJ1/n; SumJ2:=SumJ2/n; WriteLn; WriteLn (' Srednee stolbza ', j1, ' = ', SumJ1:4:2); WriteLn (' Srednee stolbza ', j2, ' = ', SumJ2:4:2); ReadLn; end.
Будем рассматривать восьмеричное число как набор двоичных триад 8) Наименьшее четырехзначное восьмеричное число - это 1000₈. 1000₈ = 1 000 000 000₂, но у нас нулей может быть только три, поэтому оставляем самые левые нули, чтобы число оставалось минимально возможным: 1 000 111 111₂ = 1077₈ 9) Наибольшее четырехзначное восьмеричное число - это 7777₈ = 111 111 111 111₂, но у нас только четыре единицы и мы оставим их слева, чтобы число оставалось максимальным: 111 100 000 000₂ = 7400₈ 10)Наибольшее четырехзначное восьмеричное число - это 7777₈ = 111 111 111 111₂, но у нас только четыре нуля и мы запишем их справа, чтобы число оставалось максимальным: 111 111 110 000₂ = 7760₈