Протокол передачи данных, TCP/IP
Ты о чем? я не понимаю суть твоего вопроса, напиши в коментарии к ответу
K=10
i=1, A(1)=11, B(10)=11, k=9
i=2, A(2)=10, B(9)=10, k=8
i=3, A(3)=9, B(8)=9, k=7
i=4, A(4)=8, B(7)=8, k=6
i=5, A(5)=7, B(6)=7, k=5
i=6, A(6)=6, B(5)=6, k=4
i=7, A(7)=5, B(4)=5, k=3
i=8, A(8)=4, B(3)=4, k=2
i=9, A(9)=3, B(2)=3, k=1
i=10, A(10)=2, B(1)=2, k=0
Ответ:
<span>2) заполняет массив А с начала, а массив В с конца</span>
Ответ:
program Geom;
program Test_nn;
{$APPTYPE CONSOLE}
{$R *.res}
uses
Math;
var
a: array of Extended;
n, i, c: Integer;
x: Extended;
begin
Write ('Размерность массива = ');
ReadLn (n);
SetLength (a, n);
Randomize;
for i := Low (a) to High (a) do begin
a [i] := (Random (2001) - 1000) / 1000;
Write (a [i] :7 :3);
end;
x := 1;
c := 1;
WriteLn;
for i := Low (a) to High (a) do begin
if a [i] > 0 then begin
Write (a [i] :7 :3);
x := x * a [i];
Inc (c);
end;
end;
WriteLn;
WriteLn ('Среднее геометрическое = ', Power (x, 1/c) :20 :15);
ReadLn;
end.
Const nx=30;var i,j,p,n:integer;A:array[1..nx,1..nx] of integer;d,Sn,min:real;begin p:=1;write('Введите размер матрицы');Read(n);for i:=1 to n do beginfor j:=1 to n do beginA[i,j]:=random(3)-2;write(A[i,j]:4);end;writeln;end;writeln;writeln;for i:=1 to n do beginfor j:=1 to n do beginif i = j then begin if A[i,j]<> 0 then p:=p* A[i,j];write(A[i,j]:4);endelse write(' ':4);end;writeln;end;write('p =',p);writeln;writeln;for i:=1 to n do beginfor j:=1 to n do beginif (i= n -j +1) then begin if A[i,j]<> 0 then p:=p* A[i,j];write(A[i,j]:4);endelse write(' ':4);end;writeln;end;write('p =',p);end.
