Question

Информатика 9 класс помогите пожалуйста

Answer 1

//PascalABC.NET 3.1 сборка 1239
1)
begin
    var a := SeqWhile(ReadInteger('Число ='), x -> ReadInteger('Число ='), x -> x <> 0);
    var n := a.Count(x -> x > 10);
    writeln(n);
end.
2)
begin
    var n := ReadInteger('n =');
    var a := SeqWhile(ReadInteger('Число ='), x -> ReadInteger('Число ='), x -> x <> 0);
    writeln(a.Where(x -> x < n).Max);
end.