Question

Помогите пожалуйста по информатике Паскаль массивы ​

Answer 1

Ответ:

PascalABC.NET

#1

begin

 var Marks := ReadSeqInteger(10);

 Println('Получивших 2: ', Marks.Where(x -> x = 2).Count);

end.

#2

begin

 var current_year := 2020;

 var Ages := ReadSeqInteger(5);

 Ages.Select(x -> current_year - x).Min.Println;

end.

Объяснение: