Составьте программу, которая заполняет массив a[1..10] случайными числами в диапазоне от 0 до 10, затем первый элемент меняет местами с максимальным элементом.выведите на экран исходный и полученный массивы.

Uses crt; const n=10;   var a: array[1..n] of integer;   i,max,k: integer;   begin   randomize;   for i: =1 to n do   begin   a[i]: =random(10);   write(a[i],' ');   end;   writeln;   max: =-1;   for i: =1 to n do   if a[i]> max then begin max: =a[i]; k: =i; end;   a[1]: =a[1]+a[k];   a[k]: =a[1]-a[k];   a[1]: =a[1]-a[k];   for i: =1 to n do   write(a[i],' ');   end.  

всё правильно, это "11", о котором ты спрашиваешь, записано в 3-й системе.

 

когда ты делишь 148 на 9 (в десятичной системе), у тебя получается остаток 4:

148 : 9 = 16 (ост 4)

если записать то же самое, но в троичной системе, получится:

12111 : 100 = 121 (ост 11)

 

для любой системы счисления с основанием n:

число n^2 запишется как 100

число n^3 запишется как 1000

число n^4 запишется как 10000

и т.д.

при делении на n^2 остаток будет две последние цифры;

при делении на n^3 остаток будет три последние цифры

и т.д.

program mila37; var b, m, s, f: integer;   begin  writeln('*******************************');   writeln('*          приёмная комиссия          *');   writeln('*******************************');   writeln;   write('введите проходной ');   readln(b);   write('введите оценку по ');   readln(m);   write('введите оценку за сочинение ');   readln(s);   write('введите оценку по ');   readln(f);   if m+s+f< b then       begin          writeln('к сожалению, вы не ');           writeln('попробуйте снова через год.');       end      else          begin              writeln('! вы поступили ');               writeln('  и зачаслены на i-й курс');           end; end.