посчитайте составить блок схему очень надоuses crt;var a:array[1. . 100]of real;i,n,inn:integer;m,s,p:real;begin m:=9999999;p:=1;repeatclrscr;writeln('Как узнать сколько элементов');readln(n);until (n>=1)and(n<=100);for i:=1 to n dobegina[i]:=(5. 4*(sin(i)/cos(i)))/i;write(a[i]:1:10,' ');if m>a[i] then begin m:=a[i];inn:=i;end;end;writeln;for i:=1 to n dobeginif i if i>inn then p:=p*a[i];end;s:=s/inn;write('среднее арифметическое =',s:1:10,' произведение=',p,' минимальное=',m);end.