Program chik;
var a:array[1..100]of integer;
n,i,p:integer;
begin
writeln('Введите кол-во элементов');
for i:=1 to n do
begin
read(a[i]);
a[i]:=a[i]+10;
end;
p:=1;
for i:=1 to n do
begin
write(a[i],' ');
if(a[i]>0)then p:=p*a[i];
end;
writeln;
writeln(p,' -произведение пол,чисел 2 массива');
end.

0 0

4 года назад

Помогите срочно пожалуйста (если не понятно вот задание) В пустые ячейки табл.1.4 напротив форматов (расширение)информации впиши

cutie - kitty [6]

1 графической 2 текстовой 3 видео инф 4 видео инф 5 звуковая инф 6 звуковая инф 7 текст инф 8 текст инф 9 граф инф 10 граф инф 11 видео инф

0 0

4 года назад

Текст составлен с использованием алфавита мощностью 256 символа и содержит 1024 символов. Каков информационный объём текста?

Alber [38]

N=256 I=8 бит(1 символ)
информационый объем равен 1024*8=8192 бита

0 0

4 года назад