Решение во вложении
.........................
81 и 81 взвешиваем. 81 откладываем . Берём кучку легче. Если равно- ту которую отложили. и повторяем эту операцию с 27, 9, 3 итого 5
Const n=10;
var a:array[1..n] of integer;
i:integer;
begin
writeln('vvedite massiv=');
for i := 1 to n do
readln(a[i]);
for i := 1 to n do
if a[i]<0 then writeln('esti') else writeln ('net');
readln;
end.
//PascalABC.NET 3.1 сборка 1239
begin
var a := ArrRandom(7, -50, 50);
a.Println;
Println(a.Count(x -> x mod 7 <> 0));
end.