Программа в pascal. Создать линейный числовой массив b[10]. Заполнить его целыми числами интервала (-10,10) . В данном числовом массиве поменять местами максимальные и минимальные элементы
var i,imax,imin:integer; a:array[1..10] of integer; begin Randomize; imax:=1; imin:=1; for i:=1 to 10 do begin a[i]:=Random(21)-10; Write(a[i], ); if a[i] else if a[i]>a[imax] then imax:=i end; Writeln; i:=a[imax]; a[imax]:=a[imin]; a[imin]:=i; for i:=1 to 10 do Write(a[i], ); Writeln end.
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
