Массив предназначен для хранения значенийи ростов 12 человек . с датчика случайнях чисел заполнить массив значениями, лежащими в диапозоне от 163 до 190 включительно. вывести данный массив на экран.

Var mass: array[1..12] of integer;             i: integer; begin randomize; for i: =1 to 12 do  begin mass[i]: =163+random(28); writeln('рост ',i,' =',mass[i]); end; end. пример работы: рост 1 =167 рост 2 =168 рост 3 =186 рост 4 =167 рост 5 =170 рост 6 =170 рост 7 =173 рост 8 =175 рост 9 =168 рост 10 =179 рост 11 =174 рост 12 =188

1)

vara, b: integer;

beginreadln(a, b); if (a div 10 + a mod 10) > (b div 10 + b mod 10) thenwriteln('сумма цифр ', a, ' больше')elsewriteln('сумма цифр ', b, ' больше'); end.

2)

vara: integer;

beginreadln(a); writeln((a mod 10) * 10 + a div 10); end.

3)

vara: integer;

beginreadln(a); if ((a div 100) = (a mod 100) div 10) or ((a div 100) = (a mod 10)) or ((a mod 100) div 10 = (a mod 10)) thenwriteln('есть 2 одинаковые цифры')elsewriteln('нет 2-х одинаковых цифр'); end.

1 -6 февраля. / понедельник.

2 - иа.

3 - число "1"

4 - печка.

5 - клюв.

6 - царь.

7 - марка.

8 - 10 гласных,21 согласная буква.(всего 33 буквы). - твёрдый,мягкий знак - не согласная не гласная.