Program n1;
var a,i,sum: integer;
begin
sum:=0;
for i:=1 to 10 do
begin
readln(a);
if a mod 2=0 then sum:=sum+a;
end;
writeln(sum);
end.
Карп корп кора коза по другому не знаю
Очевидно, что в подмножество войдут сигналы, для которых значение будет не меньше 1, поскольку меньшие значения уменьшают произведение.
<em>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=SeqRandom(ReadInteger('n='),0,99).Select(t->0.1*t).ToArray;
a.Println.Where(t->t>=1.0).Println
end.
<u>Пример</u>
n= 15
1.3 2.8 0.7 5.1 1 0.9 7.9 5.5 3.4 3.6 9.1 2.7 2.5 9 7.9
1.3 2.8 5.1 1 7.9 5.5 3.4 3.6 9.1 2.7 2.5 9 7.9
#include <iostream>
#include <algorithm>
using std::cin;
using std::cout;
using std::sort;
int arr[3];
void min(){
sort(arr, arr+3);
cout << arr[0];
}
int main()
{
for (int i = 0; i < 3; ++i)
{
cin >> arr[i];
}
min();
return 0;
}