Здравствуйте, что в этом коде на 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.

Question

Минюша

15 сентября, 17:53

+2

Ответы (1)

Знаете ответ на вопрос?

Муша · Answer 1

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

Здравствуйте, что в этом коде на free pascal считает k?program SiberiaBoss;vara:array[1 ... 100] of integer;i, k, n:integer;beginreadln (n) ;randomize;for i:=1 to n+1 dobegina[i]:=random (10) ;if a[i] < i then k:=k+1;writeln (a[i]:3) ;end;writeln ('Itogo ', k) ;end.