Автор: Bronislav

Bronislav — Thu, 02 Aug 2018 08:23:31 +0000

program array_56;//pascalABC.net

begin
  var n := 10;
  var a := ArrRandom(n, 0, 9); Println(a);
  var b := a.Where((t, ind)->(ind + 1) mod 3 = 0).ToArray;
  Println(b.Count, b)
end.

program array_56;//pascalABC.net

begin

var n := 10;

var a := ArrRandom(n, 0, 9); Println(a);

var b := a.Where((t, ind)->(ind + 1) mod 3 = 0).ToArray;

Println(b.Count, b)

end.

Комментарии: Решаем задачи Абрамян на Паскале. Array56

Автор: Bronislav