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