const n=10; Var a: array[1..10] of integer; i: integer; s,k: real; Begin k:=1; s:=0; For i:=1 to n do begin write ('Число = '); readln (a[i]); if a[i] mod 2 = 0 then s:=s 1 else k:=a[i]*k; end; writeln('Четных чисел = ',s); writeln('Произведение нечетных = ',k); End.
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
