Дан массив из N элементов определить количество элементов имеющие четные порядковые номера и являющихся нечетными числами
Дан массив из N элементов определить количество элементов имеющие четные порядковые номера и являющихся нечетными числами
Гость
Ответ(ы) на вопрос:
Гостьconst w=10000;
var
i,n,sum:integer;
a:array[1..w] of integer;
begin
writeln('Введите кол-во элементов в массиве');
readln(n);
for i:=1 to n do
begin
a[i]:=random(100);
if (a[i] mod 2<>0) and (i mod 2 = 0) then
inc (sum);
end;
writeln(sum);
end.
Не нашли ответ?
Похожие вопросы