Question

вводится одномерный массив из 10 чисел . определите количество положительных чисел в данном массиве, стоящих на нечетных местах

Answer 1

// PascalABC.NET 3.1, сборка 1198 от 11.03.2016
begin
  var a:=ReadArrInteger(10);
  Writeln('Кол-во=',a[0:9:2].Where(x->x>0).Count)
end.

Тестовое решение:
3 -5 4 -2 -3 0 4 -1 -8 2
Кол-во=3

Answer 2

я на питоне, там всё сложнее

Answer 3

Да... большое достижение писать на Питоне, где "все сложнее" )))

Answer 4

какой учил, на том и пишу

Answer 5

я же не программист, так хобби :)