дан массив содержащий 2014 положительных целых чисел

Ответ от Krab Bark[гуру]
1.
const N = 2014;
var a: array [1..N] of integer;
i, j, k: integer;
begin
for i:=1 to N do
readln(a[i]);
k:=0; for i:=2 to N do if a[i]>2*a[i-1] then k:=k+1;
writeln('k=',k); readln
end.
2.
const N = 6;
var a: array [1..N] of integer;
i, j, k: integer;
begin
for i:=1 to N do
readln(a[i]);
k:=0; for i:=2 to N do if odd(a[i]*a[i-1])and(a[i]+a[i-1]>0) then k:=k+1;
writeln('k=',k); readln
end.
Krab Bark
Искусственный Интеллект
(190106)
Да, так лучше 🙂