Почему при заливке фигуры иногда закрашиваются и другие области? как исправить эту ситуацию?

Это значит что где-то пропущен пиксель или группа пикселей, через которые проходит цвет на область. используйте лупу и подрисуйте недостающие пиксели

// язык паскаль 

program massiv;

uses crt;

const n=10; // нужно больше сам подставишь нужное число

 

  var a: array[1..n] of integer;

        i,c: integer;

begin

      clrscr;

      write('введите элементы массива: ');

      c: =0;  

      for i: =1 to n do

        begin  

            readln(a[i]);  

 

            if (a[i] mod 2)=0 then c: =c+1;  

 

        end;  

 

writeln;

write('исходный массив: ');

  for i: =1 to n do write(a[i],'   ');

writeln('количество чётных элементов: ',c);  

    readkey;

 

end. 

 

 

 

 

 

 

вот программа на c, выводит массив в прямом и обратном порядке:

 

#include < stdio.h> #include < time.h> void func(int *array, int n, int i){  if (i < n) {      array[i] = 0 + rand() % 100;       printf("%d ", array[i]);       func(array, n, i + 1);       printf("%d ", array[i]);   }  else {      printf("\n");   }}int main(int argc, char *argv){  srand(time(null));   int array[10];   func(array, 10, 0);   return 0; }