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

Question

Напишите программу которая вычисляет сколько раз введенное с клавиатуры число встречается в массиве который нужно ввести с клавиатуры в строчку ( в pascal)

Answer 1

program chislo;
var    i,n,x,v : integer;  
 a : array [1..100] of integer;
begin    
 writeln('введите количество элементов n :');    
 readln(n);      
  writeln('введите массив');  
   for i:=1 to n do      
   read(a[i]);    
   writeln('введите число');  
   readln(x);    
   v:=0;  
    for i:=1 to n do  
        if (a[i] = x) then v:=v+1;    
    writeln('встречается ',v);
end.

Comments

Здравствуйте, спасибо за решение, но хотелось бы задать вопрос. Когда Вводим кол-во элементов n - то мы вводим допустим 10 и вылетает следующее Введите массив- пишу массив из 10 чисел и не чего больше не вылетает

---

Вводите числа по одному, нажимая энтер. Все работает)

---

ааа, извините, по одному