Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

Дано натуральное число N и последовательность а1,а2,....,аN натуральных чисел, заданных с клавиатуры. Определить количество и сумму элементов этой последовательности, имеющих чётные порядковые номера и являющихся нечётными числами. Решить задачу для N=10 (Написать на Паскале).

Ответ оставил Гость

program a;

uses crt;

var i,n, sum,qty:integer;

a:array [1..10] of integer;

begin

clrscr;

n:=10;

sum:=0;

qty:=0;

for i:=1 to n do begin

readln (a[,i.]=,a[i]);

end;

for i:=1 to n do begin

if i mod 2 = 0 then

if a[i] mod 2 <>0 then

sum:=sum+a[i];

inc(qty);

endif;

endif;

end;

writeln(Сумма составила , sum);

writeln(Количество составило ,qty);

readkey;

end.