составить блок схему очень надо uses crt;
var a:array[1..100]of real;i,n,inn:integer;m,s,p:real;
begin m:=9999999;p:=1;
repeat
clrscr;
writeln('сколько элементов');
readln(n);
until (n>=1)and(n<=100);
for i:=1 to n do
begin
a[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 do
begin
if i if i>inn then p:=p*a[i];
end;s:=s/inn;
write('среднее арифметическое =',s:1:10,' произведение=',p,' минимальное=',m);
end.

150819761    2   05.03.2021 12:43    1