var n,c,i: integer; A: array[1..10000] of integer;begin write('Кол-во частей: '); read(n); for i:=1 to n do read(A[i]); c:=0; for i:=1 to n do if A[i] mod 2 = 0 then c = 1; write('Чётных чисел: ',c);end.
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
