// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
begin
var m:=ArrRandom(16,-99,99); m.Println;
var s:=m.Where((e,i)->i.IsEven and (e>0));
Writeln('Ср.геом. положительных на нечетных местах ',
Power(s.Aggregate(1.0,(p,e)->p*e),1/s.Count):0:4)
end.
<u><em>Тестовое решение</em></u>
12 58 -54 77 -68 -41 -79 -91 -18 -57 98 81 28 97 33 79
Ср.геом. положительных на нечетных местах 32.2864
Const m=5; n=6;
var
a:array[1..m,1..n] of integer;
b:array[1..m] of integer;
i,j,min:integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to m do
begin
for j:=1 to n do
begin
a[i,j]:=random(50);
write(a[i,j]:4);
end;
writeln;
end;
for i:=1 to m do
begin
min:=a[i,1];
for j:=2 to n do
if a[i,j]<min then min:=a[i,j];
b[i]:=min;
end;
writeln('Полученный массив:');
for i:=1 to m do write(b[i]:4);
writeln;
end.
Пример:
Исходный массив:
44 30 35 16 47 3
30 15 23 40 15 46
46 11 2 3 16 40
19 17 8 22 10 25
41 23 9 47 7 36
Полученный массив:
3 15 2 8 7
А8=341=3*8^2+4*8^1+1*8^0=225
A6=341=3*6^2+4*6^1+1*6^0=133
A16=341=3*16^2+4*16^1+1*16^0=
A5=34,1=3*5^1+4*5^0+1*5^-1=
Последние две строчки сам посчитай.