Информатика, опубликовано 2018-08-22 22:16:08 by Гость
Здравствуйте, что в этом коде на 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.
Ответ оставил Гость
Кол-во чисел в массиве которые меньше их порядкового номера
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на