// PascalABC.NET 3.2, сборка 1467 от 02.06.2017 // Внимание! Если программа не работает, обновите версию!
begin var sg:=['а','е','и','о','у','ы','э','ю','я']; var a:=ReadlnString('Вводите текст: ').ToWords(',','.'); var r:set of char=[]; for var i:=0 to a.Length-1 do begin var b:=a[i].Where(c->c in sg).GroupBy(t->t).Select(t->(t.Key,t.Count)); foreach var t in b do if t[1]>2 then r+=[t[0]]; end; var s:=''; foreach var c in r do s+=c; s.OrderBy(t->t).Println(',') end.
Пример Вводите текст: Дает,корова,молоко,а,жираф,это,длинношеее,животное. е,о
// PascalABC.NET 3.2, сборка 1467 от 02.06.2017 // Внимание! Если программа не работает, обновите версию!
begin var x:=ReadArrInteger(ReadInteger('n=')); var p:=x.FindIndex(t->t>10); if p=-1 then Writeln('Нет элементов, больших 10') else begin Write('Ср.арифм.значений до ',x[p],' равно '); if p=0 then Writeln('0') else Writeln(x[:p].Average); var s:=x[p+1:].Where(t->t<0); Write('Ср.арифм. отрицательных значений после ',x[p],' равно '); if s.Count=0 then Writeln('0') else Writeln(s.Average) end end.
Пример n= 12 4 1 -13 15 13 0 9 5 -12 9 4 -11 Ср.арифм.значений до 15 равно -2.66666666666667 Ср.арифм. отрицательных значений после 15 равно -11.5
2,6 секунд
Объяснение:
8×140×70=78400
78400÷30720=2,556=2,6 секунд