1.Определи назначения данных датчиков. 2. Проведи исследование и расскажи о них, используя источники дополнительной информации.

var

  x : array [1..15] of integer;

  i : integer;

  min : integer;

  kol_nol : integer;

begin

  kol_nol : = 0;

  for i: =1 to 15 do

  begin

  write ("введите элемент массива: ");

readln(x[i]);

end;

min : = x[1];

for i : = 0 to 15 do

begin

  if (x[i] > 0) then

  begin

  if (x[i] < min) then

  begin

    min : = x[i];

  end;

  end;

  if (x[i] = 0) then

  begin

  inc(kol_nol);

  end;

writeln(min);

writeln(kol_nol);

end;

256= 2^i=2^8следовательно i=8 битов

8*80*32=20480 битов

20480*2=40960 битов=5120 байт=5 килобайт

^ - это я так обозначила степень

i - количество информации(обычно обозначается большой буквой)

* - умножить

program xxx;

      var d, x1, x2, y1,y2 : real;

begin

  write('введите координаты 1 точки: ');

  readln(x1, y1);

  write('введите координаты 2 точки: ');

  readln(x2, y2);

  d: =sqrt(sqr(x2-x1)+sqr(y2-y1));

  write('растояние между точками =', d);

  readln

end.

чередование четных не чётных