Программа написана на PascalABC.NET
// Ниже код:
program element;
var a: array[1..1000] of real; i, j, c: integer; b: real; begin writeln('Введите число элементов: '); read(j); for i:= 1 to j do begin read(a[i]); b:= b + a[i]; end; b:= b / j; for i:= 1 to j do if a[i] > b then inc(c); writeln; write('Ответ: ', c);end.
1 Байт-8
128битов-16
32 байта-256
1 кб-1024
1.5кб-1536
//PascalABC.NET 3.1 сборка 1200
begin
var d := ReadReal('d =');
var s := SeqGen(
ReadInteger('n ='),
ReadReal('a1 ='),
a -> a + d)
.Aggregate((s, x)-> s + x);
writeln(s);
end.
#include <iostream>
#include <regex>
#include <string>
using namespace std;
int main()
{
string s, pat;
getline(cin, s);
getline(cin, pat);
smatch sm;
regex p("\\b\\w*" + pat + "\\w*\\b");
cout << "Найдено: ";
while ( regex_search(s, sm, p) ) {
cout << sm[0] << ' ';
s = sm.suffix();
}
return 0;
}