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