Объяснение:
#include <iostream>
#include <vector>
using namespace std;
int main()
{
int N;
cin >> N;
vector<int>chet;
vector<int>nechet;
for (int i = 0; i < N; i++) {
int A;
cin >> A;
if (i % 2 == 0)
nechet.push_back(A);
else
chet.push_back(A);
}
for (int i = 0; i < chet.size(); i++)
cout << chet[i] << " ";
cout << endl;
for (int i = 0; i < nechet.size(); i++)
cout << nechet[i] << " ";
Объяснение:
#include <iostream>
#include <vector>
using namespace std;
int main()
{
int N;
cin >> N;
vector<int>chet;
vector<int>nechet;
for (int i = 0; i < N; i++) {
int A;
cin >> A;
if (i % 2 == 0)
nechet.push_back(A);
else
chet.push_back(A);
}
for (int i = 0; i < chet.size(); i++)
cout << chet[i] << " ";
cout << endl;
for (int i = 0; i < nechet.size(); i++)
cout << nechet[i] << " ";
}
// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
begin
Writeln(Range(1,100).Select(i->sin(i)*cos(i)).Where(x->x<>0).Average)
end.
Тестовое решение:
-0.00136006072493969
2. А вот так учат писать это же школьные учителя:
// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
var
m:array[1..100] of real;
i,k:integer;
s:real;
begin
s:=0;
k:=0;
for i:=1 to 100 do begin
m[i]:=sin(i)*cos(i);
if m[i]<>0 then begin
s:=s+m[i];
k:=k+1
end
end;
Writeln(s/k)
end.
Тестовое решение:
-0.00136006072493969