<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
Папка Рабочий стол является вершиной иерархической файловой системы
Заметим, что цикл s=s-5; выполняется 11 раз. Отсюда следует, что из s вычитается 5*11=55.
100-55=45
В конце каждой программы после слова end не забудьте поставить точку
Запишем как систему уравнений
x - кошка
y - котёнок
4x+3y=15
3x+4y=13
Домножим
4x+3y=15
-3x-4y=-13
Сложим
x-y=2
x=2+y
Подставим
4(2+y)+3y=15
8+4y+3y=15
7y=7
y=1
Подставим
4x+3(1)=15
4x=12
x=3
y=1
Ответ:Кошка весит 3 кг, а котёнок весит 1 кг