<em>// PascalABC.NET 3.2, сборка 1488 от 21.06.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
var max:=a.Max;
Writeln('Сумма положительных без максимума равна ',
a.Where(x->(x>0) and (x<>max)).Sum)
end.
<u>Пример</u>
n= 16
-47 -28 38 49 -42 2 49 -29 39 -36 -4 -11 45 -12 -44 -16
Сумма положительных без максимума равна 124
Program p1;
var a,b:integer;
begin writeln('Введите два числа');
readln(a,b);
if a=b
then writeln('Числа равны')
else if a<b
then writeln(1)
else writeln(2);<span>end.</span>
ДЕСЯТИЧНЫЙ КОД
Х Y
5 5
5 40
25 40
25 5
20 30
10 5
5 5
Получается что-то типа флажка.....