A:Array[1..10] of Integer; Begin for i:=1 to 10 do begin Read(A[i]); end; max:=A[1]; for i:=1 to 10 do if (A[i]>max) then max:=A[i]; for i:=1 to 10 do if (A[i]=max) then begin Inc(k); Writeln('index = ',i); end; Writeln('Kol-vo = ',k); end.
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
