const n=10;
var a:array [1..n] of real;
i,j,k:integer;
s,v:real;
begin
write(' Исходный массив: ');
for i:=1 to n do
a[i]:=random*20-10;
write(a[i]:7:2);
if a[i]<0 then
s:=s+a[i]*a[i];
k:=k+1
end;
if a[i]>0 then a[i]:=i
writeln;
write('Преобразованый массив: ');
for i:=1 to n do write(a[i]:7:2);
for j:=1 to n-i do
if a[j]>a[j+1] then
v:=a[j];
a[j]:=a[j+1];
a[j+1]:=v
write('Отсортированый массив: ');
writeln('Среднее арифметическое квадратов отрицательных чисел равно ',s/k:0:2);
end.
Не совсем понял о какой таблице речь.
Представляем буквы числами от 0 до 4. А-0, Р-1, У-2, К-3, О-4
получается список на первом месте которого 00000, а на последнем 44444
Переводим последнее число из пятеричной системы счисления в десятеричную и прибавляем единицу (т.к. отсчет начинается с нуля, а нумерация с 1)
Получаем: Всего 3125 комбинаций
По той же логике на 517 месте стоит число 516.
Переводим его в пятеричную систему - 04031
Подставляем вместо цифр буквы.
Под номером 517 находится комбинация - АОАКР
Теперь обратное, вместо букв цифры - 32143
Переводим в десятичную систему и прибавляем 1.
Курок находится под номером 2174
const n=10;
var a:array [1..n] of real;
i,j,k:integer;
s,v:real;
begin
write(' Исходный массив: ');
for i:=1 to n do
begin
a[i]:=random*20-10;
write(a[i]:7:2);
if a[i]<0 then
begin
s:=s+a[i]*a[i];
k:=k+1
end;
if a[i]>0 then a[i]:=i
end;
writeln;
write('Преобразованый массив: ');
for i:=1 to n do write(a[i]:7:2);
writeln;
for i:=1 to n do
for j:=1 to n-i do
if a[j]>a[j+1] then
begin
v:=a[j];
a[j]:=a[j+1];
a[j+1]:=v
end;
write('Отсортированый массив: ');
for i:=1 to n do write(a[i]:7:2);
writeln;
writeln('Среднее арифметическое квадратов отрицательных чисел равно ',s/k:0:2);
end.
Не совсем понял о какой таблице речь.
Представляем буквы числами от 0 до 4. А-0, Р-1, У-2, К-3, О-4
получается список на первом месте которого 00000, а на последнем 44444
Переводим последнее число из пятеричной системы счисления в десятеричную и прибавляем единицу (т.к. отсчет начинается с нуля, а нумерация с 1)
Получаем: Всего 3125 комбинаций
По той же логике на 517 месте стоит число 516.
Переводим его в пятеричную систему - 04031
Подставляем вместо цифр буквы.
Под номером 517 находится комбинация - АОАКР
Теперь обратное, вместо букв цифры - 32143
Переводим в десятичную систему и прибавляем 1.
Курок находится под номером 2174