Исходное данное — трёхзначное число x. Выполни для x=127 следующий алгоритм.

a:=xdiv100b:=xmod100c:=xmod10s:=a+b+c

а=1

b= 27

c= 12

s=1+27+12=40

I,k: integer; begin randomize; writeln('массив: '); for i: =1 to 13 do begin a[i]: =random(41)+10; write(a[i],' '); end; writeln; writeln('массив после удаления 10-го элемента: '); for i: =10 to 12 do a[i]: =a[i+1]; for i: =1 to 12 do write(a[i],' '); writeln; writeln('массив после удаления минимального элемента: '); k: =1; for i: =1 to 12 do if a[i]< a[k] then k: =i; for i: =k to 11 do a[i]: =a[i+1]; for i: =1 to 11 do write(a[i],' '); writeln; end. var a: array [1..7] of char; i,k: integer; begin writeln('введите массив: '); for i: =1 to 7 do readln(a[i]); writeln('массив'); for i: =1 to 7 do write(a[i],' '); writeln; writeln('массив после удаления максимального элемента: '); k: =1; for i: =1 to 7 do if a[i]> a[k] then k: =i; for i: =k to 6 do a[i]: =a[i+1]; for i: =1 to 11 do write(a[i],' '); writeln; end.