Program enot; const n= 5; Var a: array [1..n] of integer; c:real; i,max,s:integer; begin for i:= 1 to n do begin read (a[i]); s:=s a[i]; end; c:=s/n; for i:= 1 to n do if a[i]>c then write(a[i], '; '); end.
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
