var a1, b1, a2, b2, c, i, n:integer; s:array[1..10000] of integer; begin read (n); for i :=1 to n do read (s[i]); a1:=s[1]; for i :=1 to n do if s[i]>a1 then begin b1:=i; a1:=s[i]; end; s[b1]:=-63999; a2:=s[1]; for i :=1 to n do if s[i]>a2 then begin b2:=i; a2:=s[i]; end; writeln (b1,' ',b2); write (a1,' ',a2); end. Я там еще какую-то коронку писал, уже не помню, но что-то про лучшее.
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
