Scroll S Scroll Регистрация 10 Фев 2013 Сообщения 85 Репутация 0 Спасибо 0 Монет 0 11 Дек 2016 #1 var a: array [1..10000] of integer; n, i, k: integer; begin readln; read(a[1]); k := 0; for i := 2 to n do begin read(a); if a > a[i - 1] then inc(k) end; readln; writeln(k); readln end.
var a: array [1..10000] of integer; n, i, k: integer; begin readln; read(a[1]); k := 0; for i := 2 to n do begin read(a); if a > a[i - 1] then inc(k) end; readln; writeln(k); readln end.
jay-2002 J jay-2002 Регистрация 13 Дек 2013 Сообщения 81 Репутация 0 Спасибо 0 Монет 0 11 Дек 2016 #2 Привет! Я выложил сюда: goo.gl/rRA2LD (ссылка не кликабельна) специально для вас. Не надо благодарностей) Позитивный голос 0
Привет! Я выложил сюда: goo.gl/rRA2LD (ссылка не кликабельна) специально для вас. Не надо благодарностей)