Var x: array[1..8] of longint; Var i,a : longint; Begin for i:= 1 to 8 do begin; readln(a); x[i] := a; end; Writeln('Массив K:'); for i:= 1 to 8 do begin; writeln(',i,' = ',x[i]); end; Readln; end.
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.