Отметьте предложения, в которых множество В является подмножеством А.
a) А – конструктор, В – металлический конструктор.
b) А – гласные звуки, В – звуки.
c) А – Земля, В – Солнечная система.
d) А – числа, В – четные числа.
e) А – четные числа, В – числа.
using namespace std;
void main ()
{
int a,b;
cin>>a>>b;
int temp;
if (a>b) {temp = b; b=a; a= temp; }
cout<< "ves' diapozon"<<endl;
for (int i = a; i<=b; i++)
{
cout<< i<<" ";
}
cout<<endl;
cout<< "chetnye"<<endl;
for (int i = a; i<=b; i++)
{
if ( (i%2)==0) cout<< i;
}
cout<<endl;
cout<< "ne chetnye"<<endl;
for (int i = a; i<=b; i++)
{
if ( (i % 2) !=0) cout<< i<<" ";
}
cout<<endl;
cout<< "krany 7"<<endl;
for (int i = a; i<=b; i++)
{
if( (i%7)==0) cout<< i;
}
system("pause");
return 0;
}
procedure AllMake(p:array of integer; var avg:real);
begin
avg:=p.Average;
for var i:=0 to p.Length-1 do
if p[i]<avg then p[i]*=10
end;
begin
var n:=ReadInteger('Количество элементов в массиве:');
var a:=ArrRandom(n,1,50);
Writeln('Исходный массив'); a.Println;
var av:real;
AllMake(a,av);
Writeln('Среднее арифметическое равно ',av);
Writeln('Результирующий массив'); a.Println;
WriteAllText('out.txt',a.JoinIntoString)
end.
Тестовое решение:
Количество элементов в массиве: 15
Исходный массив
34 50 49 50 17 21 13 25 11 43 47 45 30 11 1
Среднее арифметическое равно 29.8
Результирующий массив
34 50 49 50 170 210 130 250 110 43 47 45 30 110 10
Файл out.txt дан во вложении.