Дано натуральное число N и последовательность а1,а2,....,аN натуральных чисел, заданных с клавиатуры. Определить количество и сумму элементов этой последовательности, имеющих чётные порядковые номера и являющихся нечётными числами. Решить задачу для N=10 (Написать на Паскале).
Ответы
Ответ дал:
0
const
n=10;
var
a:array [1..n] of integer;
i,k,sum:integer;
begin
k:=0;
sum:=0;
for i:=1 to n do
begin
write ('A[',i,'] = ');
readln(a[i]);
if (i mod 2 = 0) and (a[i] mod 2 <> 0) then
begin
k:=k+1;
sum:=sum+a[i];
end;
end;
writeln ('Summa: ',sum);
writeln ('Kol-vo: ',k);
readln;
end.
Вас заинтересует
1 год назад
1 год назад
7 лет назад
9 лет назад
9 лет назад
9 лет назад