finiss F finiss Регистрация 28 Окт 2012 Сообщения 95 Репутация 0 Спасибо 0 Монет 0 5 Дек 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.
nicerap N nicerap Регистрация 28 Дек 2013 Сообщения 77 Репутация 0 Спасибо 0 Монет 0 5 Дек 2016 #2 //както так int main (){ int a [10000]; int n, i, k; cin >> n; cin>>a[0];// or a[1] k=0; for (i=0, i> a; if (a> a[i-0]) k++ } cout<<k; return 0; } Позитивный голос 0
//както так int main (){ int a [10000]; int n, i, k; cin >> n; cin>>a[0];// or a[1] k=0; for (i=0, i> a; if (a> a[i-0]) k++ } cout<<k; return 0; }