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>
увеличени тактовой частоты;
расширение методов параллельной обработки данных;
повышение тактовой частоты шины данных
1)
<span>typedef size_t uint32;
mt19937 gen{ random_device()() };
uniform_int_distribution<uint32> uid(20, 100);
const uint32 N = 10;
int main()
{
uint32 arr[N], pos{0}, neg{0};
for (uint32 i = 0; i < N; ++i) {
arr[i] = uid(gen);
cout << arr[i] << " ";
if (arr[i] % 2 == 0) ++pos;
else ++neg;
}
cout << endl << pos << "/" << neg << endl;
system("pause");
<span>}
2)
</span></span><span>typedef size_t uint32;
mt19937 gen{ random_device()() };
uniform_int_distribution<uint32> uid(0, 100);
const uint32 N = 10;
int main()
{
uint32 arr[N], lf{ 0 }, hf{ 0 }, sum1{ 0 }, sum2{ 0 };
for (uint32 i = 0; i < N; ++i) {
arr[i] = uid(gen);
cout << arr[i] << " ";
if (arr[i] >= 50) {
++lf;
sum1 += arr[i];
} else {
++hf;
sum2 += arr[i];
}
}
cout << endl << sum1 / lf << "/" << sum2 / hf << endl;
system("pause");
<span>}</span></span>
Program xxx;
uses CRT;
var
a, i:integer;
begin
readln(a);
while (a<>0) do
begin
write(a mod 10);
a := a div 10;
end;
<span>end.</span>