Ввод: x ^ y С/П.
<-> П0 1 + + П1 ИП0 / 1/x П2
ИП1 С/П ИП2 С/П ИП0 С/П
<span>var
a, b, S, : real;
begin
write('Введите a: ');
readln(a);
write('Введите b: ');
readln(b);
s := a * b;
write('Площадь прямоугольника -- ', s, ';
end<span>.</span></span>
От 11 до 55 = 55-11+1 = 42 варианта
Перестановки = 42^[5] (факториальная степень)= 42 * 41 * 40 * 39 * 38 = 102 080 160
Const n=15;
<span>var i,k,mn,indm,sm: integer;
</span><span> a: array[1..n] of integer;
</span><span> sar: real;
</span><span>begin
</span><span> randomize;
</span><span> writeln('исходный массив:');
</span><span> mn:=n; sm:=0;
</span><span> k:=1;
</span><span> for i:=1 to n do
</span><span> begin
</span><span> a[i]:=random(-n,n);
</span><span> sm:=sm+a[i];
</span><span> write(a[i],' ');
</span><span> if a[i]=mn then k:=k+1;
</span><span> if a[i]<mn then
</span><span> begin
</span><span> mn:=a[i];
</span><span> indm:=i;
</span><span> k:=1;
</span><span> end;
</span><span> end;
</span><span> writeln;
</span><span> writeln('минимальный элемент: ',mn,' индекс: ',indm);
</span><span> sm:=sm-a[indm]*k;
</span><span> writeln('сумма элементов без минимального: ',sm);
</span><span> sar:=sm/(n-k);
</span><span> writeln('среднее арифметическое: ',sar:7:3);
</span><span>end.
</span>исходный массив:
<span>-1 6 -12 -14 14 -14 10 -9 -2 -6 9 -1 -13 13 -2
</span><span>минимальный элемент: -14 индекс: 4
</span><span>сумма элементов без минимального: 6
</span><span>среднее арифметическое: 0.462
</span>