Question

Помогите пожалуйста с ДЗ по информатике, язык-Паскаль.

Answer 1

// PascalABC.NET 3.3

begin
  var a:=ArrRandom(10,10,90); a.Println;
  writeln('S = ',a.Sum);
  writeln('K = ',a.Where(x->x>30).Count);
  writeln('Max = ',a.Max);
end.

Пример:
47 31 22 90 37 88 42 72 23 47
S = 499
K = 8
Max = 90