Для, вводимых пользователем, натуральных чисел найти количество трёхзначных чисел, оканчивающихся цифрой 5

30,5, 40.5, 309,5,67.5

Var
a:array[1..5] of integer;
i,Max,c,n,f:integer;
 procedure ho;
 begin
       if a[i]>Max then
        begin
         Max:=a[i];
         c:=i;
        end;
 end;

 begin
   for i:=1 to 5 do
     begin
       a[i]:= random(15)+2;
       write(a[i],' ');
     end;
     Max:=a[1];
     c:=1;
     for i:=1 to 5 do
      ho;
      writeln;
      writeln('Максимум: ',max);
       f:=c;
                    if f=1 then
                    begin
                     max:=a[2];
                     for i:=2 to 5 do
                      ho;
                      writeln('Вторичный максимум: ',max);                                            exit;
                    end;       
                           if f<5 then
                      begin
                          Max:=a[f+1];
                          for i:=f+1 to 5 do
                          ho;
                          n:=max;
                       end;
                    if f>1 then
                      begin
                          Max:=a[1];
                          c:=f;
                          for i:=1 to c-1 do
                          ho;
                          if max>n then
                          writeln('Вторичный максимумì: ',max);
                          if max<n then
                          writeln('Вторичный максимум: ',n); 
                                               end;
   end.

Блок-схема - в прилагаемом файле.
Программа:
#include <iostream>
#include <stdlib.h>
using namespace std;

int main() {
const int n = 20;
int a[n];
int k1=0;
int k2=0;
int k3=0;

srand(time(0));
for (int i = 0; i < n; i++) {
a[i]=rand() % 3 +1;
cout << a[i] << " ";
}
cout <<"\n";
for (int i = 0; i < n; i++){
 switch(a[i]){
case 1: 
k1++; break;
case 2: 
k2++; break;
case 3: 
k3++; break;
 }
}
   cout << "k1 = " << k1 << "  k2 =  " << k2 << "  k3 =  " << k3 <<"\n"; 
return 0;
}

Пример:
2 1 2 1 2 1 3 3 2 3 1 3 1 2 3 2 1 3 3 3
k1 = 6 k2 = 6 k3 = 8