Напишите объяснения к этой программе program crr; uses crt; var i,k: integer; a,b: real; c: array[1..1000] of integer; begin clrscr; randomize; for i: =1 to 1000 do c[i]: =random(10); writeln('vvedite a'); readln(a); writeln('vvedite b'); readln(b); k: =0; for i: =1 to 1000 do if (c[i]> a) and (c[i] writeln(k); readln; end.