Var ar:array[1..n] of integer; i,k,min:integer; begin min:=integer.MaxValue; writeln('Array:'); for i:=1 to n do begin readln(ar[i]); if ar[i]end; for i:=1 to n do if ar[i]-5=min then inc(k); writeln(k); end.
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
