Форум программистов, компьютерный форум CyberForum.ru

Найти сумму последних 5 положительных элементов массива - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ орел или решка http://www.cyberforum.ru/cpp-beginners/thread879998.html
программа моделирует падение монеты Для каждого броска монеты программа должна печатать Орел или Решка. Промоделируйте с помощью этой программы бросание 100 раз и подсчитайте, сколько раз появилась каждая сторона монеты. Напечатайте результаты. Программа должна вызывать отдельную функцию flip, которая не принимает никаких аргументов и возвращает 0 для Орла и 1 для Решки. Замечание: если...
C++ Блок схемы Ребят, не знал куда писать, но так-как нужна блок схема к программе на С++, то пишу тут. Не подскажите програмку для рисования блок схем? http://www.cyberforum.ru/cpp-beginners/thread879995.html
C++ Правда ли, что все цифры равны
Вот такая задача. найти сколько цифр в данном числе равны А. Правда ли, что все цифры в числе равны. первую часть я сделал, а вот второе условие проверить не могу. Помогите кто то нужно дополнить программу ниже #include<iostream> #include<stdlib.h> int main() { int n;
C++ Разделить символьный массив на лексемы
Нужно разделить символьный массив на лексемы. Новая лексема - от и до мат. знака ("+", "-", "*", "/")
C++ Перевод из 10-й с.ч. в 16-ую. Результат - в char[m] http://www.cyberforum.ru/cpp-beginners/thread879961.html
нужно перевести из 10-ой с.ч. в 16-ую. Результат записать как массив. Написал это, но постоянная ошибка "нарушение прав доступа при записи по адресу" : void DecToHex(long int a){ int i=0; char B; do{ if(a%16==0)B='0';
C++ Решение неравенства Дано положительное число A>10. найти k, что (k-1)!=<A=<k! подробнее

Показать сообщение отдельно
volodin661
730 / 630 / 104
Регистрация: 10.12.2013
Сообщений: 2,122
Записей в блоге: 1
22.03.2014, 18:06     Найти сумму последних 5 положительных элементов массива
но ведь есть и человеческие языки



Perl 5
  1. use utf8;
  2. sub http://www.cyberforum.ru/cgi-bin/latex.cgi?\Sigma(@) { $sum += $_ for @_; return $sum }
  3. print http://www.cyberforum.ru/cgi-bin/latex.cgi?\Sigma grep { $_>0 } (1, 3,'слово затесалось', 5, 7,-4, 8, -1, 'и ещё одно',-6 ,7)[-5 .. -1];


  1. используем в исходном тексте символы Юникода
  2. определяем функцию с красивым греческим именем http://www.cyberforum.ru/cgi-bin/latex.cgi?\Sigma, суммирующую свои аргументы
  3. выбираем из списка последние 5 членов ( лишь бы были положительные), вызываем http://www.cyberforum.ru/cgi-bin/latex.cgi?\Sigma и печатаем результат

Добавлено через 9 минут
или академический С-подобный стиль:

Perl 6
1
2
3
4
5
6
my @a = ( 1, 3, 5, 7, -4, 8, 0, 6, 1 );
my $sum;
for(my $i=-5; $i; ++$i) {
    $sum += $a[$i] if $a[$i]>0
}
print $sum;
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru