Процессор
так как: устройства ввода это клавиатура, оперативная память это память, устройства вывода :колонки
<span>a = 40 b = 10
b = - a / 2 * b
</span>b = - 40 / 2 * 10 = -200
a = 40 b = -200<span>
если a < b то c = b - a
иначе c = a - 2 * b
40 < -200 (нет)
</span>c = a - 2 * b = 40 - 2 * (-200) = 40 + 400 = 440
Ответ: 440
<em>Вот так)</em>
<em><form autocomplete="off">
</em>
<em> <input type="text" name="test" autocomplete="off">
</em>
<em></form></em>
Var
a:array[1..10] of integer;
i,c:integer;
Begin
for i:= 1 to 10 do Begin
write('Введите ',i,' - ый элемент массива ');
readln(a[i]);
End;
Write('Индексы элементов, больших 5 - (');
for i:= 1 to 10 do
if a[i]>5 then Begin
write(i,' '); c:=1;
end;
if c=0 then write('Таких нет)') else write(')');
end.