Вмассиве b1, b2, bn найти первое положительное число и напечатать его номер. язык програмирования паскаль

Program xxx; var i, n, k : integer;       b : array [1..100] of real; begin write ('введите n='); readln(n); write ('введите массив b : '); for i: =1 to n do read(b[i]); k: =0; i: =1; while (i< =n) and (k=0) do   if b[i]> 0 then k: =i else i: =i+1; if k=0 then write('положительных элементов - нет')           else write('номер первого положительного элемента-', k ) end.

Векторное изображение - это тип изображения, которое состоит из объектов, описанных математически. Свойства этой фигуры не будут изменяться при увеличении, поскольку фигура состоит из кривых. Каждая точка этой фигуры имеет свои координаты, на этом фигура и основана, то есть заданы координаты точек, а между ними могут быть расположены различные кривые. Их "искривленность" зависит от свойств точек. Кривые могут иметь только цвет и толщину.

Плюсы векторных изображений:

- гибкая масштабируемость, можно изменять размеры изображений без потери его визуальных качеств;

- максимальная точность построенного изображения (координаты точек, между которыми могут быть проведены кривые, могут иметь точность до сотых доль микрона) ;

- файл с векторным изображением имеет гораздо меньший размер по сравнению с растровым изображением;

- рисунок имеет высокое качество при печати, особенно это хорошо заметно на хороших принтерах при качественной печати;

- возможность редактирования всех частей векторного изображения;

- простой экспорт векторного рисунка в растровый.

Минусы векторных изображений:

- отсутствие реалистичности у векторных рисунков. Реалистичность достигается путем применения различных сложных цветовых схем;

- невозможность использования эффектов, которые можно применять в растровой графике;

- практически полная невозможность экспорта растрового рисунка в векторный;

Растровое изображение - это изображение, в основе которого стоит таблица. Ячейки таблицы - это пикселы. Пиксел - это еденица измерения размеров растрового изображения. Один пиксел - это одна клеточка в растровом изображении. Соответственно растровые изображения состоят из пикселов, только они настолько малы, что в нормальном виде их трудно разлечить. Каждый пиксел растрового изображения имеет следующие свойства: цвет и координаты расположения пиксела.

Плюсы растрового изображения:

- высокая реалистичность изображения;

- на растровом изображении может быть изображено все, что угодно: как снимок с фотокамеры, так и нарисованное на компьютере изображение;

- к растровым изображениям можно применять самые разнообразные эффекты;

- растровые форматы рисунков используются при создании вэб-страниц в Интернете;

Недостатки растровых изображений:

- растровые изображения плохо масштабируются, можно уменьшить изображение, однако увеличить его без потери качества невозможно (к потери качества относиться заметное увеличение размытия изображения после увеличения рисунка) ;

- нельзя разбить растровое изображение на части и редактировать их;

- файл с растровым изображением имеет больший размер по сравнению с векторным.

Объяснение:

т.к. n заранее не дано(и это все лишь фрагмент кода) то m при разных n будет получаться разный. n лежит в промежутке [-2;8]

потому, что тут m:=(l+r)div 2; при n<-2 получается индекс <0

и при n>8  в цикле индекс >7

а массив у нас всего 8 элементов

Поэтому в цикле я вывел все значения m при всех возможных значениях n

Надеюсь понятно объяснил.

при n=-2   m=0

при n=-1   m=0

при n=0   m=0

при n=1   m=1

при n=2   m=2

при n=3   m=3

при n=4   m=4

при n=5   m=5

при n=6   m=6

при n=7   m=6

при n=8   m=6

Pascal

var

 a:array [0..7] of integer = (34, 16, 16, 2, 2, 0, -4, -4);

 l, n, m, key, r:integer;

 flag:boolean;

begin

 for n:=-2 to 8 do begin

   key:=-4;

   L:=1;

   r:=n;

   flag:=false;

   Repeat

     m:=(l+r)div 2;

     if a[m]>key then

       l:=m+1

     else

      if a[m]=key then

        flag:=true

      else

        r:=m-1;

   until flag or (l>r);

   writeln('при n=',n,'   m=', m);

 end;

end.