Const N=10 //размер массива Type A=array[1..n]of real; Var I,B:integer; Begin For I=1 to n do Read(a[i]); //ввели массив
Read(b);
For I=1 to n do Begin A[i]:=a[i] b; Write(a[i]); End
End.
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
