Встречено else, а ожидался оператор
Type Chislo=array[1..5] of integer;
var c:chislo;
a:integer;
b,p,o:integer;
begin
for a:= 1 to 5 do
b:=0;
p:=0;
begin
writeln('Введите число');
readln(c[a]);
if (a mod 2 = 0) then
c[a]:=5;
b:=a;
else
c[a]:=2;
p:=a;
end;
writeln('чётные и нечётные');
for a:=1 to 5 do write (b:5,' ',p:5,' ');
end.
а вообще задание звучит так
дан одномерный массив который содержит не более 5 целых чисел замените каждый элемент с чётным номером цифрой 2, а с нечётным 5

Задача на динамическое программирование. Советую почитать поподробнее на эту тему в интернете. Подобные задачи для изучения: платная лестница, кузнечик, последовательность Фибоначчи.
#include <iostream>
#include <cmath>
using namespace std;
int main()  {
   int n;   
   cin >> n;   
   int height[n];   
   for(int i=0; i<n; i++)       
      cin >> height[i];    
   int energy[n];   
   for(int i=1; i<n; i++)
   energy[i] = energy[i-1] + abs(height[i]-height[i-1]);
   cout << height[n-1];
   return 0;
}

ответ:

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

#include

#include

using namespace std;

int main(int argc, char** argv) {

    int num, n, co;

    cout< < "number? "<

    cin> > num;

    cout< < "cifra? "<

    cin> > n;

    int count = 0;

    for (; num> 0; count++) {

        num /= 10;

    }

    for (int i = 0; i < count; i++) {

        if (num[i] == n) {

            co++;

        }

    }

    cout< < "number of "<

    return 0;

}

объяснение: