Ну на паскале я тебе вот набросал а остальное никто за столько баллов делать точно не возьмется :
program z;
var i3,i:integer;beginread(i);i3:=i*i*i;i:=i3-(3*i);writeln(i);end.
//PascalABC.NET
//Дан целочисленный массив из 40 элементов. Элементы массива могут
//принимать значения от -10000 до 10000. Написать алгоритм, который
//находит и выводит среднее арифметическое всех отрицательных элементов
//массива, оканчивающихся цифрой 7. Гарантируется, что хотя бы один
//такой элемент в массиве есть. Исходные данные объявлены так, как
//показано ниже. Запрещается использовать переменные, не описанные
//ниже, но разрешается не использовать часть из них.
const
N = 40;
var
//a : array[1..N] of integer;
i, s, r, x : integer;
sr: real;
begin
//Для любителей заполнять вручную:
//for i := 1 to 40 do readln(a[i]);
//Заполним массив 40-ка случайными значениями
var a := ArrRandomInteger(N+1, -10000, 10000);
//Гарантировано разместим число, оканчивающееся на 7
a[Random(0,40)] := -10 * Random(0,999) - 7;
//Уберем лишний элемент, созданный автоматически
a[0] := 0;
//Напечатаем массив
a.println;
writeln('----------------');
//Просмотрим весь массив и найдя отрицательное, оканчивающееся на 7
//число, учтём его
foreach i in a do
if (i < 0) and (i mod 10 = -7) then begin
r += i; s += 1; write(i,' ')
end;
//Выведем среднее арифметическое
writeln('Ср.ар: ',r/s)
end.
Горький острый. теплый горячий.сухой влажный. я не я не знаю как то так
Вроде так, но без конкретных примеров сложно проверить
27) вычисляется сумма s=s+A[i], если A[n-i]-A[i] > A[i]
n=10 i=0 A[10]-A[0]>A[0] 100-0>0 - да s=0+0=0
n=10 i=1 A[9]-A[1]>A[1] 90-10>10 - да s=0+10=10
n=10 i=2 A[8]-A[2]>A[2] 80-20>20 -да s=10+20=30
n=10 i=3 A[7]-A[3]>A[3] 70-30>30 да s=30+30=60
n=10 i=4 A[6]-A[4]>A[4] 60 -40>40 нет
n=10 i=5 A[5]-A[5]>A{5} - нет
n=10 i=6 A[4]-A[6]>A[6] 50-60> 60 нет
........................................................ и т.д.
n=10 i=10 A[0]-A[10]>A[10] 0-100> 100 - нет
ответ 60
28) вычисляется s=s+A{i},если A[n-i]-A[i]<A[i] n=10
i=0 20-0<0 -нет
i=1 18-2<2 - нет
I=2 16-4<4 - НЕТ
i=3 14-6<6 - нет
i=4 12-8 <8 - ДА s=0+8=8
i=5 10-10<10 - да s=8+10=18
i=6 8-12<12 - да s=18+12=30
i=7 6-14<14 -да s=30+14=44
i=8 4-16 <16- да s=44+16=60
i=9 2-18< 18 -да s=60+18=78
i=10 0-20<20 - да s=78+20=98 ответ 98
