Составить алгоритмы и программы дляСоставить алгоритмы и программы для…

Если я правильно понял условие, то код выглядит так.uses crt; var i,ans,sum: integer; a: array[1… 30] of integer; beginsum: =0; ans: =0; for i: =1 to 30 dobegina[i]: =10*i+2*sqr (i); if a[i]<50 thenans: =ans+1; sum: =sum+a[i]; end; writeln (sum/ans); for i: =1 to 30 dowrite (a[i],'); end.