Программы к этим нужно написать на pascal abc.заранее ) 1)даны два массива: a[1: 2] и b [1: 20].найдите и выведите на экран только те элементы этих массивов, значения которых .например если a[2]=b[2]=4, то на экран надо вывести : номер2 значение 4.если таких совпадений нет, то вывести на экран об этом. 2)дан массив из 10 чисел.подсчитайте в этом массиве количество положительных и отрицательных значений.

1) var a: array [1..2] of real;

          b: array [1..20] of real;

          i: integer;

          c: boolean;

  begin

  c: =false;

  readln(a[1],a[2]);

  for i: =1 to 20 do begin

                            readln(b[i]);

                            if (b[i]=a[1]) then begin writeln('a[1]=b[',i,']=',b[i]); c: =true; end;

                            if (b[i]=a[2]) then begin writeln('a[2]=b[',i,']=',b[i]); c: =true; end;

                            end;

  if c=false then writeln('совпадений не найдено');

end.

2) var a: array[1..10] of real;

    npol,notr,i: integer;

    begin

    npol: =0;

    notr: =0;

    for i: =1 to 10 do begin

                              readln(a[i]);

                              if a[i]> 0 then npol: =npol+1;

                              if a[i]< 0 then notr: =notr+1;

                              end;

    writeln('количество положительных значений: ',npol,', количество отрицательных значений: ',notr);

end.

                               

 

// pascalabc.net 3.2, сборка 1439 от 09.05.2017 // внимание! если программа не работает, обновите версию! begin   writeln('*** исходный массив [10x10] ***');   var q: =matrrandom(10,10,-30,30);   q.println(4); writeln(4*q.colcount*'-');   // #1   writeln('s=',q.rows.selectmany(x-> x).where(x-> (x> 1) and (x< );   // #2, #3   var s: =q.elementswithindexes;   // #2   writeln('ненулевые элементы');   s.where(x-> x[2]< > 0).foreach(x-> write('[',x[0]+1,',',x[1]+1,'] '));   writeln;   // #3   write('первый максимальный отрицательный элемент: ');   var m: =s.maxby(x-> x[2]);   writeln('q[',m[0]+1,',',m[1]+1,']=',m[2]) end. пример *** исходный массив [10x10] ***   29  29    4 -12  10 -25    0 -27  17 -17   -27    5 -11 -21  26    1 -29 -10 -12    5   18 -18    0 -11 -16    0  10  -1 -10  23   -5 -20 -14  13  14 -27    0 -26    4 -11   -20  13    0 -24    4  -4  -3  12 -13  -4   -24  27 -21  -8 -13  17  -2 -15 -26 -21   -5 -29  13  25  18  24 -12    7  -4  23   -30  27  17  29  -6 -25  12  -6  15  18   -27  28 -19  25  17  -1 -30  25  -5  28     5 -15 -30  -6  25 -21  30    6 -11  10 s=230 ненулевые элементы [1,1] [1,2] [1,3] [1,4] [1,5] [1,6] [1,8] [1,9] [1,10] [2,1] [2,2] [2,3] [2,4] [2,5] [2,6] [2,7] [2,8] [2,9] [2,10] [3,1] [3,2] [3,4] [3,5] [3,7] [3,8] [3,9] [3,10] [4,1] [4,2] [4,3] [4,4] [4,5] [4,6] [4,8] [4,9] [4,10] [5,1] [5,2] [5,4] [5,5] [5,6] [5,7] [5,8] [5,9] [5,10] [6,1] [6,2] [6,3] [6,4] [6,5] [6,6] [6,7] [6,8] [6,9] [6,10] [7,1] [7,2] [7,3] [7,4] [7,5] [7,6] [7,7] [7,8] [7,9] [7,10] [8,1] [8,2] [8,3] [8,4] [8,5] [8,6] [8,7] [8,8] [8,9] [8,10] [9,1] [9,2] [9,3] [9,4] [9,5] [9,6] [9,7] [9,8] [9,9] [9,10] [10,1] [10,2] [10,3] [10,4] [10,5] [10,6] [10,7] [10,8] [10,9] [10,10] первый максимальный отрицательный элемент: q[10,7]=30

Кулачко́вый механи́зм   — механизм, образующий высшую  кинематическую пару , имеющий подвижное звено, совершающее вращательное движение,  —  кулак (кулачок) , с поверхностью переменной  кривизны   или имеющей форму  эксцентрика , взаимодействующей с другим подвижным звеном  —  толкателем , если подвижное звено совершает прямолинейное движение, или  коромыслом , если подвижное звено совершает качание. кулак, совершающий прямолинейное движение, называется  копиром . храпово́й механи́зм  (храпови́к)  — зубчатый  механизм  прерывистого движения, предназначенный для преобразовательного возвратно-вращательного движения в прерывистое вращательное движение в одном направлении. проще говоря, храповик позволяет оси вращаться в одном направлении и не позволяет вращаться в другом. храповые механизмы используются достаточно широко  — например, в  турникетах,гаечных ключах, заводных механизмах,  домкратах,  лебёдках, замках  наручников  и  т.  д. храповик обычно имеет форму  зубчатого колеса  с несимметричными зубьями, имеющими упор с одной стороны. движение колеса в обратную сторону ограничивается  собачкой, которая прижимается к колесу пружиной или под собственным весом.