program tasc1; Var i,sum : integer; a: array [1..10] of integer; begin writeln ('input array '); for i:=1 to 10 do begin write ('a(',i,')='); readln (a[ i ]); end; sum:=0; for i:=1 to 10 do sum:=sum a[ i ]; writeln ('sum=',sum); end.
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
