Напишите на паскале программу, которая запрашивает с клавиатуры массив из n чисел, а затем выводит среднее арифметическое всех элементов массива.

Var n, i, sum: integer; a: array[1..100] of integer; average: real; begin write('сколько чисел будет в массиве? '); readln(n); sum : = 0; for i : = 1 to n do begin write('введите ', i, ' число: '); readln(a[i]); sum : = sum + a[i]; end; average : = sum/n; writeln('среднее арифметическое: ', average); end.

Число повторений цикла = целая часть [(3-0.1)/0.1]+1 = 30 // pascalabc.net 3.2, сборка 1383 от 09.02.2017 begin   for var i: =1 to 30 do begin       var x: =0.1*(i-1)+0.1; var y: =1-sin(x)/(1-ln(x+0.1));       writeln(x: 3: 1,y: 15: 5)       end end. результат 0.1              0.96174 0.2              0.90986 0.3              0.84579 0.4              0.77000 0.5              0.68267 0.6              0.58380 0.7              0.47331 0.8              0.35102 0.9              0.21667 1.0              0.06988 1.1            -0.08992 1.2            -0.26355 1.3            -0.45217 1.4            -0.65751 1.5            -0.88208 1.6            -1.12960 1.7            -1.40571 1.8            -1.71913 1.9            -2.08389 2.0            -2.52355 2.1            -3.08055 2.2            -3.83866 2.3            -4.98810 2.4            -7.06916 2.5          -12.45227 2.6          -75.39064 2.7            15.42904 2.8              6.17670 2.9              3.42616 3.0              2.07396