Каким будет результат преобразования массива по следующему алгоритму?

// Язык Паскаль 

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. 

 

 

 

 

 

 

45% травм- бытовые, то есть полученные дома, например, ребенок опрокинул на себя кастрюлю с горячей водой ( ожог) или сунул пальцы в розетку ( удар электротоком)
36% травм- уличные, то есть полученные вне дома, на улице, например, ребенок упал с горки ( ушиб или перелом) или залез на дерево, упал и ударился головой ( сотрясение мозга или черепно- мозговая травма)
1%- школьная, например бежал и врезался в дверь со стеклом ( порезы) или на уроке физкультуры повредил ногу ( например ушиб )
4%- дорожная, это уже в основном ДТП, переходил дорогу в неположенном месте, сбила машина ( переломы, черепно-мозговые травмы и т.д.)