<u>PascalABC.NET 3.3.5, сборка 1650 от 01.04.2018</u> <u>Внимание! Если программа не работает, обновите версию!</u>
begin var (a,h,b):=(-0.1,0.02,0.1); var y:real->real:=t->t<=0 ? Sqr(Sin(9*t-3))+0.7*t : 5*Cos(25*t+0.37)**3-5*t*t; var x:=a; while x<=b+h/2 do begin Writeln(x:5:2,y(x):15:10); x+=h end end.
begin x:=a; while x<=b+h/2 do begin if x<=0 then y:=Sqr(Sin(9*x-3))+0.7*x else y:=5*(Cos(25*x+0.37))*Sqr(Cos(25*x+0.37))-5*x*x; Writeln(x:5:2,y:15:10); x+=h end end.
Я думаю, что имеется в виду среднее по значению Pascal : var arr : array[0..2] of integer; { если числа целые } i, j, t : integer; begin read(arr[0], arr[1], arr[2]); // самый простой способ - это отсортировать массив // в данном случае можно использовать сортировку "пузырьком" for i := 0 to 2 do<span> for j := 0 to 2 do if arr[ j ] > arr[ j + 1] begin t := arr[ j ]; arr[ j ] := arr[ j + 1]; arr[ j + 1 ] := t; end;</span><span> //Конечно, среднее по значению число будет храниться в элементе arr[1] writeln(arr[1]); end. На случай, если в учебнике просят среднее арифметическое, понятно, что нужно просто вывести ( arr[0] + arr[1] + arr[2] ) / 3 Если есть какие-то вопросы, то можете написать личное сообщение</span>