//Pascal ABC.NET 3.1 сборка 1219
Const
n=10;
Begin
var ar:=ReadArrInteger(n);
writeln('Сумма положительных=',ar.Where(x -> x>0).sum);
writeln('Сумма сумма отрицательных=',ar.Where(x -> x<0).sum);
end.
Пример ввода:
1
-2
3
4
-5
-6
7
8
9
10
Пример вывода:
Сумма положительных=42
Сумма сумма отрицательных=-13
Вторая строка это пароль от сервера интернета. Введи нужный по роль что бы подключится
14:
14(10) = 8+4+2 = 1110(2)
В 8-разрядной ячейке: 00001110
В знаковом (старшем) разряде положительного числа - значение "0".
Обратный и дополнительный код положительного числа совпадает с прямым кодом.
-31:
31 = 16+8+4+2+1 = 11111(2)
В 8-разрядной ячейке: 00011111
Получим обратный код отрицательного числа, заменив все цифры на противоположные (0 на 1, 1 на 0): 11100000
В знаковом (старшем) разряде отрицательного числа - значение "1".
Получим дополнительный код отрицательного числа, добавив 1 к младшему разряду: 11100000+1 = 11100001
Выполним сложение: 00001110+11100001 = 11101111
В результате сложения получили отрицательное число (в старшем разряде "1").
Определим абсолютную величину этого числа.
Вычтем 1: 11101111-1 = 11101110
Заменим все цифры на противоположные: 00010001
00010001 = 2^4+2^1 = 16+1 = 17
Итак, с учётом знака "-", получили результат -17
14+(-31) = -17
Поскольку я помню, заходишь в файл, создать, console application
var r:integer;
begin
randomize;
r:=random(101);
write(r);
end.
1. Серый волк
2. Серое небо, заяц
3. Белый заяц
4. Красный сок
5. Серый дом
Примерно так
