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