8 бит = 9,54×(10 в -7 степени) МБ
8 бит = 9,31×(10 в -10 степени) ГБ
8 бит = 9,09×(10 в -13 степени) ТБ
//Pascal ABC.NET 3.1 сборка 1256
Const
n=5;
begin
var a:=ReadArrInteger(n);
var Sra:=a.where(x -> x>0).Count;
writeln('Положительных:',Sra);
var Sg:=a.Where(x -> x<0).Count;
writeln('Отрицательных:',Sg);
end.
Пример ввода:
-1
1
-2
2
3
Пример вывода:
Положительных:3
Отрицательных:2
Итого все переведем в 10
100_2 = 4
40_5 = 20
30_8 = 24
10_16 = 16
из них самое большое 24, значит самое большое 30_8
Всех домой не мучайте детей , десяток наставить и вперед