=целое (-6,985)+макс (15;16;17)

10

Объяснение:

целое (-6,985) округляет до ближайшего меньшего целого, или говоря по другому, вычисляет ближайшее целое число на оси слева от данного, то есть в данном случае результатом будет -7;

макс (15;16;17) вычисляет максимальное число из набора данных чисел, то есть результатом данной функции будет число 17

=целое (-6,985)+макс (15;16;17) = -7 + 17 = 10

var

a,b: real;

begin

readln(a,b);

if (a> 0) or (b< -2) then

writeln('истинно')

else

writeln('ложно');

end.

program ms; uses crt; var a: array [1..10] of integer; l,k,s,i: longint; beginclrscr; writeln('введите 10 элементов массива'); for i: =1 to 10 dobegin    readln(a[i]);     if a[i]< 0 then l: =l+a[i];     if a[i]> 0 then k: =k+a[i]; end; s: =l*k; writeln(s); readkey; end.