Program massiv; var a: array [1..10] of integer; i, x: integer; begin for i:=1 to 10 do readln(a[i]); for x:=1 to 10 do if (a[x] mod 2 = 0) and (a[x] > 0) then writeln(a[x]); end.
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
