Найдите ошибку Uses crt; Var n,i,k,sum: integer; sr: real; m: array [1… 100] of integer; begin clrscr; Writeln ('Vvedite kol-vo chisel…

Найдите ошибку Uses crt; Var n,i,k,sum: integer; sr: real; m: array [1… 100] of integer; begin clrscr; Writeln ('Vvedite kol-vo chisel '); Readln (n); For i: =1 to n do begin writeln ('vvedite ',i,' chislo '); Readln (m[i]); end; writeln (' Polycheny chisla '); For i: =1 to n do write (m[i]: 4); for i: =1 to n do if m[i]>0 then begin m[i]: =sin (i)*cos (i); sum: =sum+m[i]; k: =k+1; Sr: =sum/k; end; Writeln; Writeln ('Sr=',sr: 4:2); Readln; end.