Напишите программу, которая вычисляет , сколько раз введенное число встречается в массиве.

Read (b); for i: =1 to n do if mas[i]=b then inc (c);   b - введенное число n - количество элементов в массиве c - количество раз, сколько число встречается в массиве

Памяти                                                                                                                                                                                                                                                

// pascalabc.net 3.2, сборка 1439 от 09.05.2017 var   n: integer; function tri(n: integer): longint; begin   case n of       0,1: tri : = 0;       2: tri : = 1   else       tri : = tri(n - 3) + tri(n - 2)+tri(n-1);   end; end; var   a: array of integer;   i: longint; begin   readln(n);   setlength(a, n);   for i : = 0 to n-1 do       write(tri(i) + ' ');   for i : = 0 to n-1 do       a[i] : = tri(i);   writeln('');   for i : = 0 to n-1 do       if a[i] mod 3 = 0 then           write(a[i] + ' '); end.