В нижеследующих программах подчеркните оператор цикла, обведите переменные, которые меняют свое значение в результате выполнения цикла и укажите, какую задачу решает программа.

(1+1/sqr((12*x), если без игрика, а как игрик впихнуть не могу

101110, 101111. в десятичной эти числа равны 46 и 47.

  держи:

program kk; uses crt; var a: array [1..5,1..5] of integer; i,j: integer;   beginclrscr; randomize; for i: =1 to 5 dobeginfor j: =1 to 5 doa[i,j]: = random(90)+10; end; for i: =1 to 5 dobeginfor j: =1 to 5 do write(a[i,j],' '); writelnend; writeln; writeln; for i: =1 to 5 dobeginfor j: =1 to 5 dobegin  if (a[i,j] > 0) and (a[i,j] mod 3 = 0) thenbeginwriteln(a[i,j],' [',i, ',',j,']'); end; end; end; readkey; end.