Дается целое положительное число P. Необходимо найти количество чисел в диапазоне (1, P) имеющих четное или нечетное количество делителей.
Четность или нечетность задается во входном файле 0 или 1 соответственно.
1<= P<=1000 000 000

// PascalABC.NET 3.0, сборка 1156 от 30.01.2016
function Avg(a:array[,] of integer):real;
begin
  var s:=0; var k:=0;
  foreach var e:integer in a do
    if e>0 then begin s+=e; Inc(k) end;
  if k>0 then Result:=s/k else Result:=1e-100;
end;

begin
  var A:=MatrixRandom(4,4,-50,50); Writeln(A);
  Writeln('Среднее арифметическое положительных равно ',Avg(A):0:3);
  var B:=MatrixRandom(5,5,-30,30); Writeln(B);
  Writeln('Среднее арифметическое положительных равно ',Avg(B):0:3);
  var C:=MatrixRandom(4,5,-25,38); Writeln(C);
  Writeln('Среднее арифметическое положительных равно ',Avg(C):0:3);
end.

Тестовое решение:
[[35,35,5,-47],[14,34,35,-13],[25,-5,35,-29],[-7,10,-12,12]]
Среднее арифметическое положительных равно 24.000
[[-12,-17,-10,19,14],[20,17,-27,-2,16],[-3,-21,30,2,10],[5,-3,-17,-3,18],[0,-26,29,1,-22]]
Среднее арифметическое положительных равно 15.083
[[-5,-11,17,-4,15],[15,17,-24,36,15],[-8,-3,-22,28,-25],[-21,6,12,31,-1]]
Среднее арифметическое положительных равно 19.200

Объяснение:

Привет

Привет

Как тебя зовут

Меня зовут Марина а тебя

Я Саша приятно познакомиться

Саша я недавно приехала и застряли только выучила ваш язык можешь рассказать мне про великих писателей

Хорошо,я тебе расскажу некоторых:А.С.Пушкин, Лев Толстой, Абай Кунанбаев

Можешь рассказать про их произведение чтобы я могла лучше запомнить а в дальнейшем их почитать

Конечно, Александр Сергеевич Пушкин писал-"сказка о золотой рыбке"," у Лукоморья дуб зелёный (стихотворение"), Абай Кунанбаев писал-"лова назидания","книга знаний"Лев Толстой писал-(сказки)"волк и старуха","воробей"

мне было очень интересно тебя слушать

Я был рад

До встречи

пока