Вопрос по информатике:
Напишите программу, которая находит в массиве количество элементов, равных заданному значению X .
Входные данные Первая строка содержит размер массива N . Во второй строке через пробел задаются N чисел – элементы массива. В третьей строке записано число X . Гарантируется, что 0 < N ≤ 10000 .
Выходные данные Программа должна вывести одно числа – количество элементов массива, равных X . Примеры
входные данные
6
1 2 3 2 3 3
2
выходные данные 2
Помогите пожалуйста написать программу в паскале ,честно пыталась сделать,ничего не получается
- 21.03.2018 20:10
- Информатика
- remove_red_eye 18990
- thumb_up 21
Ответы и объяснения 1
Uses crt;Var a:array[1..100] of integer; i,n,p,z,k,x:integer;BeginClrScr; write('Vvedite X= ');read(x);write('Razmernost massiva= '); read(n);write('Zapolnenie massiva= ');for i:=1 to n do beginread(a[i]);end;for i:=1 to n do beginIf a[i]=x then inc(k);end;Writeln;Write('res=',k); Readln; {выводим результат}End.
- 22.03.2018 11:29
- thumb_up 47
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.