с клавиатуры вводится число n ,а за ним n целых значений элементов массива посчитайте кол-во четных чисел стоящих на нечетных местах в массиве
Ответы
Ответ дал:
0
var n,i,s:integer;
a:array[1..100] of integer;
begin
read(n);
for i:=1 to n do begin
read(a[i]);
if ((i mod 2)=1) and ((a[i] mod 2)=0) then
s:=s+1;
end;
writeln(s);
end.
a:array[1..100] of integer;
begin
read(n);
for i:=1 to n do begin
read(a[i]);
if ((i mod 2)=1) and ((a[i] mod 2)=0) then
s:=s+1;
end;
writeln(s);
end.
Ответ дал:
0
Ломается при n > 100, тут setLength надо
Ответ дал:
0
в школьной программе не дают больших массивов
Ответ дал:
0
То-то и оно, что важно понимание - понимание, что не всё так просто в этом мире, что он сложен, что все чего-то хотят и вообще х)
Вас заинтересует
1 год назад
9 лет назад
9 лет назад
9 лет назад