int main() { vector<int> a; int cnt = 0; double average = 0; while (true) { int tmp; cin >> tmp; if (!tmp) break; cnt++; a.push_back(tmp); average += tmp; } average /= cnt; int ans = 0; vector<int> b; for (int i = 0; i < cnt; i++) if (a[i] > average) ans++, b.push_back(a[i]); cout << ans << endl; for (int i = 0; i < b.size(); ++i) cout << b[i] << ' '; }
// PascalABC.NET 3.3, сборка 1611 от 06.01.2018 // Внимание! Если программа не работает, обновите версию!
begin var s:=ReadlnString('Введите текст:'); var p:=Pos('.',s); // позиция точки if p>0 then s:=s[:p]; // отбросим до конца все, начиная с точки Writeln('Найдено слов: ',s.MatchValues('\b[A-ZА-ЯЁ][a-zа-яё]+\b').Count) end.
Примеры Введите текст: TesT И тольКо Тест Сегодня15 января язык Pascal версия 3-3. Найдено слов: 2
ответ: Битва на р. Калке
Объяснение:
Битва на реке Калка в Приазовье между русско-половецкими и монгольскими войсками в 1223 году