program z1;
const n=20;
var m:array [1..n] of integer;
i,Sp,S2p,Sp1,Sp2,ko,k2,k1:integer;
P:real;
begin
P:=1;
ko:=0;
k2:=0;
k1:=0;
for i:=1 to n do
begin
m[i]:=random(21)-10;
if m[i] > 0 then Sp:=Sp+m[i];
if (m[i] > 0) and (m[i] mod 2 = 0) then S2p:=S2p+m[i];
if i <= n div 2 then Sp1:=Sp1+m[i] else Sp2:=Sp2+m[i];
if m[i] <> 0 then P:=P*m[i];
if m[i] < 0 then ko:=ko+1;
if m[i] mod 2 = 0 then k2:=k2+1 else k1:=k1+1;
write(m[i]:5)
end;
writeln;
writeln('Сумма положительных элементов: ',Sp);
writeln('Сумма четных положительных элементов: ',S2p);
writeln('Сумма элементов в 1 половине массива: ',Sp1);
writeln('Сумма элементов во 2 половине массива : ',Sp2);
writeln('Произведение ненулевых элементов: ',P);
writeln('Количество отрицательных элементов: ',ko);
writeln('Количество с четными значениями: ',k2);
writeln('Количество с нечетными значениями: ',k1)
end.
Объяснение:
картинка
Поделитесь своими знаниями, ответьте на вопрос:
Документ состоит из текстовой и графической информации. тест содержит 30 строк по 30 символов в каждой. размер чёрно-белого изображения составляет 120×300 пикселей. определите информационный объем сообщения. ответ дайте в байтах.
Python
n=int(input())
if n>1 and n<10 or n==1:
print(1)
elif n>10 and n<100 or n==10 :
print(2)
elif n>100 and n<1000 or n==100 :
print(3)
elif n>1000 and n<10000 or n==1000:
print(4)
elif n>10000 and n<100000 or n==10000:
print(5)
elif n>100000 and n<1000000 or n==100000:
print(6)
elif n>1000000 and n<10000000 or n==1000000:
print(7)
elif n>10000000 and n<100000000 or n==10000000:
print(8)
elif n>100000000 and n<1000000000 or n==100000000:
print(9)
elif n>1000000000 and n<10000000000 or n==1000000000:
print(10)
else:
print(0)
СДЕЛАЙ ОТВЕТ ЛУЧШИМ!