Что в этом коде на free pascal считает k? program siberiaboss; var a: array[1..100] of integer; i,k,n: integer; begin readln(n); randomize; for i: =1 to n+1 do begin a[i]: =random(10); if a[i] < i then k: =k+1; writeln(a[i]: 3); end; writeln('itogo ', k); end.

Zen201    3   26.07.2019 23:20    0