На паскаль 1.с клавиатуры вводится число. осуществить линейный поиск элемента в массиве. вывести номер элемента, равного данному, либо сообщение о том, что такого элемента в массиве нет. 2.выполнить реверс массива из 10 элементов, заполненного случайными числами в интервале [-100; 100]. 3.найти произведение всех элементов массива из 5 элементов, заполненного с клавиатуры.

Первая программа может выглядеть так: uses crt; const n=10; type mas=array [1..n] of integer; var a: mas;   i, x: integer;   priznak: boolean; begin   clrscr;   priznak: =false;   writeln(' massiv: ');   for i: =1 to n do         begin             a[i]: =-100+random(200);             write(a[i]: 5);         end;   writeln;   write(' x = '); readln(x);   writeln;   for i: =1 to n do               if x=a[i] then               begin               writeln (' x = ', a[i], '        index = ', i);               priznak: =true;             end;   if priznak=false then writeln (' ');   readln; end. 2. а вот реверс: uses crt; const n=10; type mas=array [1..n] of integer; var a: mas;   i: integer;   begin   clrscr;   writeln(' massiv: ');   for i: =1 to n do         begin             a[i]: =-100+random(201);             write(a[i]: 5);         end;   writeln;   writeln(' revers: ');   for i: =n downto 1 do             write(a[i]: 5);   writeln;   readln; end. и. наконец, последняя программа: uses crt; const n=5;   var i, x : integer;         p: longint; begin   clrscr;   p: =1;   writeln(' wwod massiva: ');   for i: =1 to n do         begin             readln (x);             p: =p*x;         end;   writeln;   writeln(' p = ', p);   writeln;   readln; end.

Program n_5; var      a, b: integer; begin   writeln('введите 2 целых числа ');   readln(a);   read(b);   if a > b then     write(b, ' < ', a);   if a < b then     write(a, ' < ', b);   if a = b then     write(a, ' = ', b); end.