<span>Одновременно для всех слайдов можно изменять дизайн: шрифт, фон, цвета, визуальные эффекты при показе, масштаб и др., для чего? Для удобства...</span>
<em>// PascalABC.NET 3.3, сборка 1579 от 18.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
<u>5)</u>
begin
Writeln('Max=',ReadSeqReal('Введите числа:',ReadInteger('n=')).Max)
end.
<u>Пример</u>
n= 8
Введите числа: 4.12 5 1.48 -6 0 7.3 5.12 0.005
Max=7.3
<u>3)</u>
begin
Writeln('Sum = ',Range(1,ReadInteger('n ='),2).Sum)
end.
<u>Пример</u>
n = 5
Sum = 9
.?.........................
Var d, w, p, u: integer;
begin read(d); read(w); read(p); read(u); if u <= d + w then begin write(d, ' '); write(u - w); end else if u > d + w + p then begin write(p + d,' '); write(p + d); end else begin write(u - w,' '); write(p); end;end.