VPF::сумма между максимальным и минимальным элементами

kallif

Дата 4.1.2010, 21:58 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 4.1.2010

Репутация: нет
Всего: нет

можете помочь с одной задачкой

Дано n-количество чисел, найти сумму между максимальным и минимальным элементами ( желательно через запоминание индексов...) включая оба этих числа.

Через my и local

Заранее спасибо!

gcc

Дата 5.1.2010, 02:19 (ссылка)

(нет голосов)

Загрузка ...

Агент алкомафии

Профиль
Группа: Участник
Сообщений: 2691
Регистрация: 25.4.2008
Где: %&й

Репутация: нет
Всего: 17

можно посмотреть тут примеры http://www.opennet.ru/docs/RUS/perl_obzor/...s/quantium.html

почему именно через local и my?

--------------------

Perl FAQ
freelance
perl, jquery, js, php
perl, jquery

kallif

Дата 5.1.2010, 02:44 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 4.1.2010

Репутация: нет
Всего: нет

мне лабу здать на экзамен, а сделать хз как(

ming

Дата 11.1.2010, 20:36 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 97
Регистрация: 30.1.2009
Где: Новосибирск

Репутация: 1
Всего: 3

причем здесь регулярные выражения?

Код


@array = qw(4 10 5 8 6 1 7 2 3);
print "Array: @array\n";
($min, $max, $N) = (0, 0, @array - 1);
for my $i (1 .. $N) {
    $min = $i if $array[$i] < $array[$min];
    $max = $i if $array[$i] > $array[$max];
}
print "min: array[$min] = $array[$min]\nmax: array[$max] = $array[$max]\n";
@sub_array = $min < $max ? @array[$min .. $max] : @array[$max .. $min];
$sum = 0; 
print "Summarizing numbers: @sub_array\n";
for (@sub_array) {    
    $sum += $_;
}
print "Sum: $sum\n";

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Регулярные выражения \| Следующая тема »