Впаскале: 1) составить список переменных с указанием типов данных для программы, вычисления среднего роста студентов в группе. 2) составить программу вычисления надбавки к зарплате в зависимости от стажа работы: до 10 лет надбавка равна 10%, далее за каждый год добавляется 2%.

Program q1; uses crt; const n=10; var i,j: integer; mass: array [1..n] of integer; countnum: integer; // переменная для хранения количества нечетных чисел proizv: integer; // переменная для хранения произведения нечетных чисел begin proizv: =1; // так как, изначально равно 0, а при умножении на 0 будет всегда 0 {создание последовательности n целых чисел} writeln('случайные целые числа: '); for i: =1 to n do begin mass[ i ]: =random(9)+1; //присваеваем переменной случайное значение от 1 до 10 write(inttostr(mass[ i ])+', '); end; {вычисление произведения и количества нечетных чисел} for i: =1 to n do if mass[ i ] mod 2 < > 0 then //проверяем не четное-ли число, если да, то.. begin inc(countnum); //увеличиваем на один кол-во нечетных чисел proizv: =proizv*mass[ i ]; // высчитываем произведение end; {вывод результатов} writeln; writeln('всего нечетных чисел: '+inttostr(countnum)); writeln('их произведение: '+inttostr(proizv)); end. program q2; uses crt; const n=10; var i,j: integer; mass: array [1..n] of real; summ: real; // переменная для хранения суммы чисел mnum: real; // переменная для хранения среднего арифметического begin {создание последовательности n отрицательных вещественных чисел} writeln('случайные отрицательные вещественные числа: '); for i: =1 to n do begin mass[ i ]: =((random(9)+1)+(random(9)+1)/10)*(-1); //присваеваем переменной случайное вещественное от 1 до 10 write(mass[ i ],'; '); //выводим end; {вычисление среднего арифметического} for i: =1 to n do summ: =summ+mass[ i ]; // высчитываем произведение mnum: =summ/n; {вывод результатов} writeln; writeln('среднее арифметическое: ',mnum); end.

Вот так вот  2, 7643214578*10^10