Delphi или Pascal

[5naip]

var
  mass:array[1..10] of double;
  i:integer;
  min,sr_geom:double;
begin
min:=5;
for i:=1 to 10 do
  begin
    write(inttostr(i)+' element = ');
    readln(mass[i]);
    if min > mass[i] then min:=mass[i];
  end;
sr_geom:=1;
for i:=1 to 9 do
  begin
    if mass[i+1] = min
      then
        begin
          sr_geom:=math.Power(sr_geom,1/i);
          Write(sr_geom);
        end;
    sr_geom:=mass[i]*sr_geom;
  end;
readln;
end.

"min:=5", тут задается стартовая величина минимального значения в массиве....можно вместо пятерки написать что угодно. Просто чтоб было с чем сравнивать.
З.Ы. В данном коде считается среднее геометрическое БЕЗ минимального числа в массиве. Если хочешь чтоб считалось с минимальным, то исправь

    if mass[i+1] = min

на

    if mass[i] = min

но тогда будут траблы, еслии инимальное = 0.

[IMOON]

а вот такую сможешь решить?:
Из двух векторов a и b размерностью n=10 составить третий вектор c таким образом, чтобы его первые пять компонент были равны разности компонент векторов a и b, стоящих на четных местах, а вторые пять компонент – сумме компонент векторов a и b, стоящих на нечетных местах.

[IMOON]

и что означает в предыдущем коде строка:
sr_geom:=math.Power(sr_geom,1/i);?

[Sasha_Smirnov]

Power (матем.) степень. Значит, в степени 1/i.
(Как нетрудно выяснить, это равно корню i-й степени.)

[5naip]

честно говоря,из задачи нифига не понял...

[Sazary]

IMOON

Из двух векторов a и b размерностью n=10 составить третий вектор c таким образом, чтобы его первые пять компонент были равны разности компонент векторов a и b, стоящих на четных местах, а вторые пять компонент – сумме компонент векторов a и b, стоящих на нечетных местах.

Видимо, так:

uses crt;

const n=10;
var
a,b,c : array[1..n] of integer;
i,j : integer;

begin
clrscr;

{zapolnenie vektorov}
randomize;
for i:=1 to n do
 begin
 a[i] := random(20)-10;
 b[i] := random(20)-10;
 end;
{------}
{-vyvod vectorov a i b}
writeln('vektor a:');
for i:=1 to n do
 write(a[i]:5);
writeln;
writeln('vektor b:');
for i:=1 to n do
 write(b[i]:5);
writeln;
writeln;

j:=2;
for i:=1 to 5 do
 begin
 c[i]:=a[j]-b[j];
 j := j + 2;
 end;
j:=1;
for i:=6 to n do
 begin
 c[i]:=a[i]+b[i];
 j := j + 2;
 end;

{vyvod c}
writeln('vektor c:');
for i:=1 to n do
 write(c[i]:5);
writeln;

readln;
end.

[IMOON]

Спасибо, а как здесь заменить ввод массива с генератора на ручной?

[Sazary]

Спасибо, а как здесь заменить ввод массива с генератора на ручной?

Заменить

{zapolnenie vektorov}
randomize;
for i:=1 to n do
 begin
 a[i] := random(20)-10;
 b[i] := random(20)-10;
 end;
{------}

на

for i:=1 to n do
 begin
 write('a[',i,']= ');
 readln(a[i]);
 write('b[',i,']= ');
 readln(b[i]);
 end;

[IMOON]

Мог бы ты как нибудь снять скрин с экрана рабочей программы, а то у меня с компом проблема???

[Sazary]

IMOON

Мог бы ты как нибудь снять скрин с экрана рабочей программы, а то у меня с компом проблема???

Скрин: