В "классическом" языке Паскаль, как его описал Н.Вирт, есть только функции для возведения во вторую степень и извлечения квадратного корня.
Поэтому для возведения в любую другую степень используют основное логарифмическое тождество
На паскале это записывается exp(b*ln(a))
В современных реализациях паскаля добавлена функция power(a,b), которая решает проблему.
Итак, "классическая запись"
b:=a*a+c*c; { возможно также sqr(a)+sqr(b) }
q:=exp(b*ln(cos(a+2.53*c)));
И запись современная
b:=a*a+c*c; // возможно также sqr(a)+sqr(b)
q:=power(cos(a+2.53*c),b);
Я думаю, что имеется в виду среднее по значению
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>
<span><span>1. Наполнить 7-литровый кувшин</span>
<span>2. Перелить из <span><span>7-литрового кувшина в </span></span><span><span>2-литровый</span></span> 2 литра.</span>
<span>3. Вылить воду из <span><span><span><span>2-литрового</span></span></span></span> кувшина в колодец. </span>
<span>4. Повторить пункты 2 и 3.</span>
<span>Результат: 3 литра воды в <span><span><span><span>7-литровом кувшине (7-2-2=3).</span></span></span></span>
</span></span>
<em>// PascalABC.NET 3.2, сборка 1353 от 27.11.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(15,1,100); a.Println;
var k:=0;
for var i:=0 to 14 do
if a[i] mod 7=0 then begin
k+=1; WritelnFormat('A[{0}]={1}',i+1,a[i])
end;
if k=0 then Writeln('Заданных элементов в массиве нет')
end.
<u>Пример</u>
33 15 28 79 56 50 95 24 41 4 64 48 29 27 72
A[3]=28
A[5]=56