begin var a:=ArrRandom(10,-50,50); writeln('1)'); a.Println; writeln('Среднее арифметическое четных элементов = ', a.Where(x->x mod 2=0).Average); var c:=ArrRandom(10,-50,50); writeln('2)'); c.Println; writeln('max+min = ',c.Max+c.Min); writeln('3)'); var n:=ReadInteger('n ='); var b:=SeqGen(n,random(5),x->x+random(1,5)).ToArray; b.Println; var s:=ReadInteger('s ='); var k:=b.Where(x->x<s).Count; b:=b[:k]+Arr(s)+b[k:]; b.Println; end.
#include <fstream>
#include <string>
#include <vector>
#include <iterator>
using namespace std;
int main()
{
vector<string> str;
string text;
ifstream fin("a.txt");
while (getline(fin, text)) {
str.push_back(text);
}
fin.close();
str.erase(str.begin() + 2);
ofstream fout("b.txt");
copy(str.begin(), str.end(), ostream_iterator<string>(fout, "\n"));
fout.close();
system("pause");
return 0;
}
begin
var a:=ArrRandom(10,-50,50);
writeln('1)'); a.Println;
writeln('Среднее арифметическое четных элементов = ',
a.Where(x->x mod 2=0).Average);
var c:=ArrRandom(10,-50,50);
writeln('2)'); c.Println;
writeln('max+min = ',c.Max+c.Min);
writeln('3)');
var n:=ReadInteger('n =');
var b:=SeqGen(n,random(5),x->x+random(1,5)).ToArray;
b.Println;
var s:=ReadInteger('s =');
var k:=b.Where(x->x<s).Count;
b:=b[:k]+Arr(s)+b[k:];
b.Println;
end.
Пример:
1)
-24 12 -31 -5 -45 36 27 43 46 -6
Среднее арифметическое четных элементов = 12.8
2)
24 -13 -20 -47 16 27 -33 11 22 -33
max+min = -20
3)
n = 10
0 4 5 7 11 15 19 20 24 25
s = 10
0 4 5 7 10 11 15 19 20 24 25