Для чего человеку нужны линейка транспортир термометр барометр компас телескоп микроскоп? какие ещё приборы и при вы знаете? запишите ответы продолжив следующие фразы

Они необходимы и в быту: согласитесь, сложно обойтись во время ремонта без самых простых измерительных приборов, таких как линейка, рулетка, штангенциркуль и т. п.

Линейка нужна для того чтобы отмерить длину ,ширину предмета например доску; транспортир нужен для нарождения радиуса в окружности;термометр измеряет температуру в с’ на улице,компас нужен для ориентировке по местности например лес;телескоп он служит для рассмотрения звёзд в небе;микроскоп служит для рассмотрения различных бактерий и различных экспериментов

Uses   crt;
const  M = 100;
var  a: array [1..M] of integer; 
       i, max, k, n: integer;
begin  clrscr;   
repeat   
  writeln('Введите количество элементов массива');   
  readln(n); 
until (n <> 0) and (n>0);   

for i := 1 to n do 
begin   
   writeln('Введите [', i, '] элемент массива');   
   readln(a[i]); 
end;  

for i := 1 to n do   
 write(' ', a[i]);   

 writeln;   

max := a[1]; 
for i := 2 to n do  
   if a[i] > max then max := a[i]; 
writeln(' max= ', max);   

for i := 1 to n do   
   if a[i] = max then k := k + 1;   
writeln(' k= ', k);   
end.

Считаем, что вначале данные неупорядочены. Полагаем, что первый элемент находится на своем месте, поэтому граница между отсортированными и неотсортированными элементами находится после первого элемента. На каждом шаге, начиная от границы, ищем максимальный элемент и определяем его место в отсортированной части последовательности, после чего сдвигаем необходимую часть отсортированных элементов вправо и производим вставку элемента на освободившееся место. Алгоритм выполняем до тех пор, пока не граница отсортированных данных не выйдет за границу массива.

PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018Внимание! Если программа не работает, обновите версию!

procedure SortByInsert(a: array of real);

// сортировка простыми вставками

begin

 for var Граница := 1 to a.Length - 1 do

   if a[Граница - 1] < a[Граница] then

   begin

     // сдвиг вправо

     var (Элемент, Позиция) := (a[Граница], Граница - 1);

     while (Позиция >= 0) and (a[Позиция] < Элемент) do

       (a[Позиция + 1], Позиция) := (a[Позиция], Позиция - 1);

     // вставка на нужное место

     a[Позиция + 1] := Элемент

   end

end;

begin

 var a := ReadArrReal(8);

 SortByInsert(a); a.Println

end.

Пример2.9 -25 8.1 31.9 -30.9 20.9 47.6 6.647.6 31.9 20.9 8.1 6.6 2.9 -25 -30.9