Одномерный массив случайными числами, ввести эталонное число с клавиатуры, найти сколько раз эталонное число встречается в массиве.

Program n1;
const n=13;
var a: array [1..n] of integer;
i,k,b: integer;
begin
randomize;
k:=0;
writeln('массив:');
for i:=1 to n do
begin
a[i]:=random(15);
write(a[i],' ');
end;
writeln;
write('введите b: ');
readln(b);
for i:=1 to n do if a[i]=b then k:=k+1;
writeln('число ',b,' встречается в массиве ',k,' раз');
end.

Uses  math;
var  a         : array of longInt;  i, n, max : integer;
begin  write('Введите размер массива');  read(n);  writeln;    setLength(A,n);    writeln('Введите элементы массива');  for i := 0 to n - 1 do read(a[i]);    writeln('Исходный массив:');  for i := 0 to n - 1 do write(a[i], ' ');  writeln;    write('Максимальный элемент: ');  max := MaxIntValue(a);  writeln(max);    writeln('Изменённый массив:');  for i := 0 to n - 1 do  begin      a[i] += max;      write(a[i], ' ');  end;  writeln;end.

1 текст:     

 

(Буква)      (Десятичный код)     (код)

 

 

    С                      243                            11110011

     у                      213                            11010101

    а                      193                             11000001

                           206                            11001110

   ( - )                    45                              00101101

                           208                            11010000

    а                      193                             11000001

                          206                             11001110

 

 

 

2 текст:         (Англ.яз)

 

 

(Буква)            (Десятичный код)     (Двоичный код)

 

 

   I                         73                                01001001 

  B                        66                                01000010

  M                        77                                01001101

 

 

 

 Примечания: ответы даны на ПОКАЗАННЫЕ Вами буквы и знаки.

( - )  - обозначение дефиса.

Английские буквы не кодируются в КОИ-8, используют (не беспокойтесь, это совершенно правильный подход).