Составьте программу на языке паскаль используя массив найдите сумму положительных элементов массива

Program  massiv; var  a:   array[1..10] of integer; i,s: integer; begin for  i: =1  to 10 do begin write  ('введите  a[',i,']='); readln  (a[i]); end; for  i: =1  to 10 do  begin if  a[i]> 0  then s: =s+a[i]; end; writeln  ('сумма положительных элементов массива равна ',s); end.

При хранении и передаче информации с технических устройств информацию следует рассматривать как последовательность символов - знаков (букв, цифр, кодов цветов точек изображения и т. символов знаковой системы (алфавит) можно рассматривать как различные возможные состояния (события).  тогда, если считать, что появление символов в сообщении равновероятно, количество возможных событий  n  можно вычислить как  n=2i  количество информации в сообщении  i  можно подсчитать умножив количество символов  k  на информационный вес одного символа  i  итак, мы имеем формулы, необходимые для определения количества информации в алфавитном подходе:

n=2iiинформационный вес символа, битnмощность алфавитаi=k*ikколичество символов в текстеiинформационный объем текста

возможны следующие сочетания известных (дано) и искомых (найти) величин:

типданонайтиформула1inn=2i2ni3i,kii=k*i4i,ik5i, ki6n, kiобе формулы7n, ik8i, kn

если к этим добавить на соотношение величин, записанных в разных единицах измерения, с использованием представления величин в виде степеней двойки мы получим 9 типов .  рассмотрим на все типы. договоримся, что при переходе от одних единиц измерения информации к другим будем строить цепочку значений. тогда уменьшается вероятность вычислительной ошибки.

1. получено сообщение, информационный объем которого равен 32 битам. чему равен этот объем в байтах?   решение: в одном байте 8 бит. 32: 8=4  ответ: 4 байта.

2. объем информацинного сообщения 12582912 битов выразить в килобайтах и мегабайтах.  решение: поскольку 1кбайт=1024 байт=1024*8 бит, то 12582912: (1024*8)=1536 кбайт и  поскольку 1мбайт=1024 кбайт, то 1536: 1024=1,5 мбайт  ответ: 1536кбайт и 1,5мбайт.

3.  компьютер имеет оперативную память 512 мб. количество соответствующих этой величине бит больше:

1) 10 000 000 000бит 2) 8 000 000 000бит 3) 6 000 000 000бит 4) 4 000 000 000бит решение: 512*1024*1024*8 бит=4294967296 бит.  ответ: 4.

4.  определить количество битов в двух мегабайтах, используя для чисел только степени 2.  решение: поскольку 1байт=8битам=23битам, а 1мбайт=210кбайт=220байт=223бит. отсюда, 2мбайт=224бит.  ответ: 224бит.

5.  сколько мегабайт информации содержит сообщение объемом 223бит?   решение: поскольку 1байт=8битам=23битам, то  223бит=223*223*23бит=210210байт=210кбайт=1мбайт.  ответ: 1мбайт

6.  один символ алфавита "весит" 4 бита. сколько символов в этом алфавите?   решение:   дано:

i=4по формуле  n=2i  находим  n=24,  n=16найти:   n  - ? ответ: 16

7.  каждый символ алфавита записан с 8 цифр двоичного кода. сколько символов в этом алфавите?   решение:   дано:

i=8по формуле  n=2i  находим  n=28,  n=256найти: n  - ? ответ: 256

8.  алфавит языка иногда оценивают в 32 буквы. каков информационный вес одной буквы такого сокращенного алфавита?   решение:   дано:

n=32по формуле  n=2i  находим 32=2i, 25=2i,i=5найти:   i- ? ответ: 5

9.  алфавит состоит из 100 символов. какое количество информации несет один символ этого алфавита?   решение:   дано:

n=100по формуле  n=2i  находим 32=2i, 25=2i,i=5найти:   i- ? ответ: 5

10.  у племени "чичевоков" в алфавите 24 буквы и 8 цифр. знаков препинания и арифметических знаков нет. какое минимальное количество двоичных разрядов им необходимо для кодирования всех символов? учтите, что слова надо отделять друг от друга!   решение:   дано:

n=24+8=32по формуле  n=2i  находим 32=2i, 25=2i,i=5найти:   i- ? ответ: 5

11.  книга, набранная с компьютера, содержит 150 страниц. на каждой странице — 40 строк, в каждой строке — 60 символов. каков объем информации в книге? ответ дайте в килобайтах и мегабайтах  решение:   дано:

k=360000определим количество символов в книге 150*40*60=360000. один символ занимает один байт. по формуле  i=k*iнаходим  i=360000байт 360000: 1024=351кбайт=0,4мбайтнайти:   i- ? ответ: 351кбайт или 0,4мбайт

12.  информационный объем текста книги, набранной на компьютере с использованием кодировки unicode, — 128 килобайт. определить количество символов в тексте книги.  решение:   дано:

i=128кбайт,i=2байтв кодировке unicode один символ занимает 2 байта. из формулыi=k*i  выразим  k=i/i,k=128*1024: 2=65536найти:   k- ? ответ: 65536

13.информационное сообщение объемом 1,5 кб содержит 3072 символа. определить информационный вес одного символа использованного алфавита  решение:   дано:

i=1,5кбайт,k=3072из формулы  i=k*i  выразим  i=i/k,i=1,5*1024*8: 3072=4найти:   i- ? ответ: 4

14.сообщение, записанное буквами из 64-символьного алфавита, содержит 20 символов. какой объем информации оно несет?   решение:   дано:

n=64,  k=20по формуле  n=2i  находим 64=2i, 26=2i,i=6. по формуле  i=k*i  i=20*6=120найти:   i- ? ответ: 120бит

  max = 9;

    for(z = 0; z < = m / a1; z++)

    {

        t = b1 - a1 * z;

        b = b1 / t;

        k = p1 * b + p2 * z;

        if(k > max)

        {

            max = k;

            x = b;

            y = z;

        }

    }