Program fantscrin; Var a: array [1..1000] of integer; i,k,n:integer; Begin write('К = '); readln(k); write('N = '); readln(n); for i:=1 to n do a[i]:=random(k*2)-k; for i:=1 to n do write(a[i], ' '); End.
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
