Перечислите подряд в порядке возрастания значений все символы(цифры), которые могут встретиться в записи чисел в римской системе счисления, если известно, что такие числа при переводе в троичную систему счисления будут иметь ровно 5 значащих разрядов.

Пятизначное число в троичной системе счисления должно иметь ненулевой пятый разряд, т.е. в десятичной системе счисления его величина должна принадлежать интервалу [3^4; 3^5-1], что составляет [81; 242]. в римской записи (а не системе счисления, римляне использовали десятичную) этот интервал запишется как [lxxxi; ccxlii], т.е. будут использованы символы с, i, l, x, v

var

a: array[1..35] of integer;

b,c,d: integer;

i: real;

begin

for b: =1 to 35 do

    a[b]: =random(49)+132;

for b: =1 to 35 do

    write(a[b],' ');

writeln;

for b: =1 to 35 do

    if a[b]> 159 then c: =c+1;

for b: =1 to 35 do

    if a[b] mod 3=0 then write(b,' ');

writeln;

for b: =1 to 35 do

    if a[b]> d then d: =a[b];

writeln(d);

for b: =1 to 35 do

    i: =i+a[b];

i: =i/35;

writeln('средний рост: ',i: 0: 3);

end.

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.