Алгоритм линейный, протокол работы такой:
Введите значение переменных a и b:
24
-85
c= -61
d= -122
d= -119
d= -118
Значение выражения равно -118
Имеем одномерный массив(таблицу) из 10 элементов
..............................................................................................................
n = 1......2.......3......4......5......6......7......8......9.......10 номера по порядку
mas= 18.....10......-1......6.....12....4......-16....7.....15.......-3...значения элементов
.................................-1............-1.............-1.........
s=0
две строки for i:=3 to 10
если по модулю какой-то элемент начиная с третьего больше 10 то заменяем на элемент стоящий на 2 позиции назад
|-1|>10 нет, |6|>10 нет |12|>10 Да число 12 заменяем на -1
|4|>10 нет |-16|>10 Да Заменяем на -1
|7|>10 нет |15|>10 Да Заменяем на -1 |-3|>10 Нет
Получили новый массив
18 10 -1 6 -1 4 -1 7 -1 -3
Следующий блок программы Для i от 1 до 10 Если элемент <0 то в копилку Вообщем складываем все отрицательные элементы
s= -1 +(-1)+(-1)+(-1)+(-3)= -7
Выводим число - 7
Var a:string;i,s:integer;
begin
read (a);
for i:=1 to length(s) do
begin
s:=s+i;
write (s);
end;
end.
Program intel;
var a,i,sum: integer;
Begin
randomize;
sum:=0;
for i:=1 to 10 do
begin
a:= random(31)-10;
writeln(a:10);
sum:=sum+a;
end;
writeln;
writeln(sum:10);
readln;
end.