const m=4; k=5; var x:array[1..m] of integer; a:array[1..m,1..k] of real; i,j:integer; begin Randomize; writeln('Массив X:'); for i:=1 to m do begin x[i]:=random(10); write(x[i]:4); end; writeln; writeln('Массив A:'); for i:=1 to m do begin for j:=1 to k do begin a[i,j]:=(abs(j-3)-1.3)*(2*x[i] 0.5); write(a[i,j]:7:2); end; writeln; end; end.
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
