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

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

Задать свой вопрос
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.
Шоборшов Владислав
Здрасти, спасибо за решение, но хотелось бы задать вопрос. Когда Вводим кол-во частей n - то мы вводим допустим 10 и вылетает последующее Введите массив- пишу массив из 10 чисел и не чего больше не вылетает
Кудайберченов Даниил
Вводите числа по одному, давя энтер. Все работает)
Миша Легнер
ааа, извините, по одному
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт