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