Что в этом коде на free pascal считает k? program - вопрос №5520301 от наташа934 30.06.2020 03:59

Question

Информатика: Что в этом коде на 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.

наташа934 · Answer

Кол-во чисел в массиве которые меньше их порядкового номера...

Что в этом коде на 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.