35 баллов. Дан массив целых чисел А [10]. Найти количество элементов массивов…

В паскале давно не писал, поэтому подзабыл (но принцип как это сделать покажу) Пускаешь цикл for, чтобы перебрать массив: for (i=0; i<10; i+) {}Внутри цикла пишешь условия проверки кратности: if (A[i] mod 2=0) {kolvo=kolvo+1; }В итоге получится примерно: beginkolvo=0; for (i=0; i<10; i+) {if (A[i] mod 2=0) {kolvo=kolvo+1; } }write (kolvo); P.S. Это без объявления переменных и заполнения массива. Надеюсь, стало понятно. Удачи!