Пожаловаться
- 01.07.2018 22:35
- Информатика
- remove_red_eye 3568
- thumb_up 5
Ответы и объяснения 2
#include
#include
using namespace std;
int main()
{
int sr = 0,ans2=1;
vector v(20);
for (int i = 0; i < 20; i++)
{
cin >> v[i];
sr += v[i];
if (v[i] % 3 == 0)
ans2 *= v[i];
}
for (int i = 0; i < 20; i++)
cout << v[i];
cout << ' ' << sr / 20 << ' ' << ans2;
return 0;
}
#include
using namespace std;
int main()
{
int sr = 0,ans2=1;
vector v(20);
for (int i = 0; i < 20; i++)
{
cin >> v[i];
sr += v[i];
if (v[i] % 3 == 0)
ans2 *= v[i];
}
for (int i = 0; i < 20; i++)
cout << v[i];
cout << ' ' << sr / 20 << ' ' << ans2;
return 0;
}
Пожаловаться
- 02.07.2018 00:04
- thumb_up 18
// PascalABC.NET 3.3, сборка 1590 от 03.12.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(20,-99,99); a.Println;
Writeln('Ср.арифм=',a.Average);
Writeln('Искомое произведение=',
a.Where(t->t mod 3=0).Aggregate(BigInteger(1),(p,q)->p*q))
end.
Пример
-77 -70 -54 -46 74 -39 -81 -40 7 88 -28 -7 -45 -8 -90 -6 87 -34 39 -35
Ср.арифм=-18.25
Искомое произведение=14064798641400
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(20,-99,99); a.Println;
Writeln('Ср.арифм=',a.Average);
Writeln('Искомое произведение=',
a.Where(t->t mod 3=0).Aggregate(BigInteger(1),(p,q)->p*q))
end.
Пример
-77 -70 -54 -46 74 -39 -81 -40 7 88 -28 -7 -45 -8 -90 -6 87 -34 39 -35
Ср.арифм=-18.25
Искомое произведение=14064798641400
Пожаловаться
- 03.07.2018 10:48
- thumb_up 1
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы