Дан массив, содержащий 2014 целых чисел в диапазоне от -10000 до 10000. Напишите на одном из языков программирования программу, которая находит в этом массиве количество пар соседних элементов массива, произведение которых нечётно, а сумма – положительна. Исходные данные объявлены так, как показано ниже. Запрещается использовать переменные, не описанные ниже, но разрешается не использовать часть из описанных.
Ответы
Ответ дал:
1
N=2013, здесь вместе с нулем будет 2014 чисел(0 и 2013 = 2014 чисел всего)
const N = 2013;
var a:array[0..N] of integer;
i, kol:integer;
begin
kol:=0;
for i:=0 to N do
readln(a[i]);
for i:=0 to N-1 do begin
if (a[i]+a[i+1] > 0) and ((a[i]*a[i+1] mod 2) = 1) then
kol:= kol + 1;
end;
writeln('Количество пар: ',kol);
end.
Вас заинтересует
3 месяца назад
3 месяца назад
4 месяца назад
4 месяца назад
1 год назад
7 лет назад