//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
Определяем информационный объем I текстового документа
I1=16 бит * 20*30*40=48000 байт
Определяем информ. объем перекодированного текста
I2=8 бит *х*(30*2)*(40-15)=1500х байт, где х количество оставшихся страниц
Составляем уравнение
48000 - 15000х = 31500?
откуда х=11 страниц
тогда 20 - х =20-11=9 страниц было удалено
Ответ 9 страниц
+ это прибавлять или увеличивать число кадром
А - это уменьшить число кадров
K:=0;\\
for(i=0;i<100;i++){
if (a[i]>17){
k++;
}
}
write('k=',k);
Большой принтер, который называется ПЛОТТЕР.