Program fantscrin; const n = 10; Var a: array [1..n] of integer; b: array [1..n] of integer; i,j:integer; Begin j:=0; for i:=1 to n do a[i]:=random(20); for i:=1 to n do write(a[i], ' '); for i:=1 to n do if (i mod 2 <> 0) then begin j:=j 1; b[j]:=a[i]; end; writeln(''); for i:=1 to n do a[i]:=0; for i:=1 to j do a[i]:=b[i]; for i:=1 to j do write(a[i], ' '); writeln(''); writeln(j); End.
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
