Question

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

Answer 1

Случайно сгенерированный массив из 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 2

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