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

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

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

#include <stdio.h>
#include <stdlib.h>
#include <locale.h>

int main(void)
{
    setlocale(LC_ALL, "Russian");
    int n, iuneven = -1;
    scanf("%d", &n);
    int *a = (int*)malloc(n * sizeof(int));

    for (int i = 0; i < n; i++)
        scanf("%d", &a[i]);
    for (int i = 0; i < n; i++)
        if (a[i] % 2 == 1)
        {
            iuneven = i;
            break;
        }
    free(a);

    iuneven == -1 ? printf("Нечетное число не найдено\n") : printf("%d\n", iuneven);
   
    return 0;
}

Var
n1,n2,n3,n4,n5:integer;
begin
Readln(n1,n2,n3,n4,n5);
If (n1>n2) and (n1>n3) and (n1>n4) and (n1>n5) then
writeln('Максимальное число: ',n1)
else If (n2>n1) and (n2>n3) and (n2>n4) and (n2>n5) then
writeln('Максимальное число: ',n2)
else If (n3>n1) and (n3>n2) and (n3>n4) and (n3>n5) then
writeln('Максимальное число: ',n3)
else If (n4>n1) and (n4>n3) and (n4>n2) and (n4>n5) then
writeln('Максимальное число: ',n4)
else
writeln('Максимальное число: ',n5);
end.