Uses crt; const N=5; var a:array [1..N] of integer; x,sum:integer; begin sum:=0; for x:=1 to N do begin write('a[',x,']:'); readln(a[x]); sum:=sum a[x]; end; writeln('Sum=',sum); end. --- Вариант работы программы на скрине во вложении
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
