Question

чисел не принадлежащих промежутку[X,Y), подсчитать количество отрицательных чисел, стоящих на четных местах. Паскаль,одномерный массив

Answer 1

// PascalABC.NET 3.3, сборка 1562 от 02.11.2017

var
a:array[1..1000000] of integer;
i, n, x, y, cnt : integer;
begin 
writeln('Введите кол-во элементов массива'); 
readln(n); 
writeln('Введите ', n, ' чисел'); 
for i:= 1 to n do    read(a[i]); 
Writeln('Введите промежуток от X до Y'); 
readln(x, y); 
for i:= x to y do   
if (a[i] < 0) then cnt:= cnt + 1; 
Write('Отрицательных элементов: ', cnt);
end.