я ничего из этого не понимаю надеюсь на других (понимающих)

[Жуан]

1.Даны натуральное число n,действительные числа b1,b2...,bn.Найти сумму всех членов этой последовательности начиная с первого положительного уменьшенных на 0,5.

2.Даны натуральное число n,целые числа a1,a2,...,an.Найти номер последнего нечетного числа последовательности a1,...,аn,если нечетных членов нет,то ответом должно быть число n+1.

3.Даны натуральное число n,целые числа а1,...,аn.Получить новую последовательность из n целых чисел,заменяя а1 нулями,если а1 все равно max (a1,...,аn) и заменяя а1 единицей в противном случае (1=1,...,n).

4.Даны целые числа а1,...,аn(в этой последовательности могут быть повторяющиеся члены).Выяснить сколько чисел входят в последовательность по одному разу

[rmavlasv]

Если актуально, вот мои контакты

kuremap@yandex.ru

ICQ: 402435606

[rrrFer]

язык какой?

[Жуан]

rrrFer

а какие они бывают язык паскаль и обычный или нет??

[rubius2008]

если актуально, пишите в асю

[VIK_aka_TOR]

стучи в асю.... быстро и недорого...

[Loldop]

Напишите на мыло:
loldop@gmail.com
скину решение на perl остальных задач

решение первой:

допустим, так:

#просто вывод
sub say{
return print(@_,"\n");
}

#возвращает номер первого элемента
sub ReturnFirst{
my ($condition,$ref) = @_;
for (my $i=0; $i<scalar(@$ref); ++$i) {

#say $ref->[$i];
return $i if (eval('$ref->[$i]'.$condition));
}

}

#возвращает сумму элементов массива, начиная с первого положительного
sub One{
my @array = @_;
$"="\n";
say "at begin: \n". "@_";

#my $count = scalar (@array);
my $sum = 0;
say "array left: ";
map{print; say; $sum+=$_;} splice @array, ReturnFirst(">0",\@array);
#say "@array";
return $sum;
}
#генерирует массив n действительных чисел
sub GenRand{
my ($number) = shift;

map{rand()-0.5}(1..$number); # R[-0.5,0.5] - равномерное распределение

}

say "and sum is: ".One(GenRand(10));

[Zergius]

Сделаю без проблем.
ICQ:453939604
E-mail:zerg202@yandex.ru

[sheka]

255507394.

[MooNDeaR]

pashaworking@gmail.com