Question

Массивы. Определить количество четных элементов стоящих на нечетных. в паскале

Answer 1

PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018

Внимание! Если программа не работает, обновите версию!

begin

 var a := ArrRandom(ReadInteger('n='), -50, 50);

 a.Println;

 Println('Количество четных элементов на нечетных местах равно',

     a.Where((v, i)-> v.IsEven and i.IsEven).Count)

end.

-----------------------------

n= 13

20 -26 28 -45 6 -32 33 25 48 -49 28 -18 9

Количество четных элементов на нечетных местах равно 5

Answer 2

Случайно сгенерированный массив из 15 элементов в диапазоне от -20 до 20.

const MAX = 15;

var

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

 i, k: integer;

begin

 randomize;

 k := 0;

 writeln(' *** Сгенерированный массив *** ');

 

 for i := 1 to MAX do

 begin

   a[i] := random(41) - 20;

   write(' ', a[i]);

   if ((i mod 2) <> 0) and (a[i] mod 2 = 0) then

     Inc(k);

 end;

 

 writeln;

 writeln('Кол-во четных элементов на нечетных местах = ', k);

end.

Answer 3

В Pascal можно определить количество четных элементов, стоящих на нечетных местах массива, используя следующий код:

cssCopy code
program CountEvenOnOddIndices;
var
  arr: array[1..10] of integer; {объявляем массив}
  i, count: integer;
begin
  count := 0; {начальное значение счетчика четных элементов}
  for i := 2 to 10 step 2 do {перебираем нечетные индексы}
  begin
    if arr[i] mod 2 = 0 then {если элемент на нечетной позиции четный}
      count := count + 1; {увеличиваем счетчик}
  end;
  writeln('Количество четных элементов на нечетных позициях: ', count);
end.

В этом коде мы создаем массив arr из 10 элементов и перебираем все нечетные индексы (начиная с 2), проверяя, является ли элемент, стоящий на этом индексе, четным. Если элемент четный, увеличиваем счетчик count. В конце программы выводим значение счетчика на экран.

Обратите внимание, что в этом примере массив заполняется неявно, то есть мы не задаем значения его элементов в коде. Перед запуском программы нужно заполнить массив значениями, например, с помощью цикла или считывания значений с клавиатуры.