Cклавиатуры вводятся произвольные числа. необходимо вычислить среднее арифметическое всех введенных четных чисел. условием выхода из цикла является сумма чисел больше 150. написать программу на языке паскаль.

function readwhilesum(cond: integer-> boolean): sequence of integer;

begin

  var s : = 0;

  while true do

  begin

    var x : = readinteger();

    s += x;

    if not cond(s) then break;

    yield x;  

  end;

end;

begin

  println('сред. арифм. =',readwhilesum(sum -> sum < 150)

                                                                        .where(t-> t.iseven).average);

end.

1.Поместите курсор в то место, куда вы хотите добавить оглавление.

2.Поместите курсор в то место, куда вы хотите добавить оглавление.

3.Если вы вносите в документ изменения, которые влияют на оглавление, обновите оглавление, щелкнув правой кнопкой мыши оглавление и выбрав команду Обновить поле.

Чтобы обновить оглавление вручную, ознакомьтесь с разделами Обновлениеоглавления.

        Отсутствующие элементы

1.выделите текст заголовка для каждого заголовка, который вы хотите добавить в оглавление.

2.Перейдите на вкладку главная > стили выберите Заголовок 1.

3.Обновление оглавления.

Чтобы обновить оглавление вручную, ознакомьтесь с разделами Обновлениеоглавления