<u><em>Microsoft QBasic</em></u>
DECLARE FUNCTION max# (a#, b#)
DECLARE FUNCTION min# (a#, b#)
INPUT "a=", a#
INPUT "b=", b#
INPUT "x=", c#
c# = max#(max#(a#, b#), min#(2 * a#, x#)) + 5
PRINT "c="; c#
FUNCTION max# (a#, b#)
IF a# > b# THEN
max# = a#
ELSE
max# = b#
END IF
END FUNCTION
FUNCTION min# (a#, b#)
IF a# < b# THEN
min# = a#
ELSE
min# = b#
END IF
END FUNCTION
200дели столбиком
200/5=40/5=8/5=1
ответ 1300
Program massiv;
var <span> mass = array [1..15] of integer;</span><span>
i, max, n_max: integer;</span>
begin<span>
{заполнение массива}
</span><span> for i:= 1 to 15 do mass[i] = (random(32)-15) * 3;</span><span>
max := 0;
</span><span> n_max := 0;
</span><span> {нахождение максимума, вывод на экран}
</span><span> for i:= 1 to 15 do</span><span>
begin</span><span>
if mass[i] > max then</span><span>
begin</span><span>
max := mass[i];
</span><span> n_max := i;</span><span>
end;</span><span>
write(mass[i], ' ');</span><span>
end;</span><span>
writeln('Индекс максимального: ', n_max);
</span><span>end.</span>