по восприятия информация не бывает: звуковой обонятельной графической текстовой тактильной 2) какие - id840698220201004 от Елизавета5820 04.10.2020 19:56

Question

Информатика: по восприятия информация не бывает: звуковой обонятельной графической текстовой тактильной 2) какие действия относятся к информационным процессам? разгадывание ребуса вышивание узора на ткани заучивание стихотворения наизусть занятие на велотренажере 3) логическое или - это логическая связка для поиска всех других слов, кроме указанного в запросе логическая связка для поиска по любому из слов логическая связка для поиска по всем словам 4) сведения , если их достаточно для понимания ситуации и принятия

Елизавета5820 · Accepted Answer

// 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

MOGZ ответил