0 / 0 / 0
Регистрация: 06.04.2015
Сообщений: 3
1

Одномерный массив(поиск элемента)

29.04.2011, 15:55. Показов 459. Ответов 2
Метки нет (Все метки)

в массиве нужно найти элемент заданный пользователем и подсчитать их кол-во
помогите, в конце не могу написать строку команды
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
uses crt;
var
i: integer;
a: array [1..10] of integer;
s: integer;
x: integer;
max: integer;
begin;
randomize;
clrscr;
for i:=1 to 10 do
  begin
  A[i]:=random(100);
  write(A[i],' ');
  end;
writeln('ââåäèòå ýëåìåíò ïîèñêà');
readln(x);
if x:={не могу понять что здесь}  then
end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
29.04.2011, 15:55
Ответы с готовыми решениями:

вставка элемента в одномерный массив
Вставить два элемента с данными значениями:первый-после всех элементов, больше данного числа Р, а...

Одномерный массив, замена элемента
Дан одномерный массив. Заменить каждый элемент суммой всех стоящих после него. Помогите...

Заполните одномерный массив B так, чтобы значение каждого элемента с четным
2. Заполните одномерный массив B так, чтобы значение каждого элемента с четным номером равнялось...

Одномерный массив из отрицательных чисел матрицы (до max элемента при построчном просмотре)
Прошу помочь с задачей. Дан массив X(n,m). Найти максимальный элемент. Сформировать одномерный...

2
72 / 72 / 60
Регистрация: 14.12.2010
Сообщений: 201
29.04.2011, 16:09 2
Ну можно так:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
uses crt;
var
   a: array [1..10] of integer;
   i,x,kol:integer;
begin;
randomize;
clrscr;
for i:=1 to 10 do
  begin
  A[i]:=random(100);
  write(A[i],' ');
  end;
writeln('введите элемент поиска');
readln(x);
for i:=1 to 10 do
    if a[i]=x  then begin
                         writeln('Элемент с индексом ',i,' равен введенному числу');
                         inc(kol);
                    end;
writeln('Общее количество элементов равных введенному чмслу= ',kol);
end.
Добавлено через 2 минуты
Цитата Сообщение от Holy_Metal Посмотреть сообщение
for i:=1 to 10 do
if a[i]=x then begin
writeln('Элемент с индексом ',i,' равен введенному числу');
inc(kol);
end;
writeln('Общее количество элементов равных введенному чмслу= ',kol);
можно заменить на:
Pascal
1
2
3
4
for i:=1 to 10 do
    if a[i]=x  then inc(kol);
writeln('Количество элементов равных введенному числу= ',kol);
end.
1
0 / 0 / 0
Регистрация: 06.04.2015
Сообщений: 3
29.04.2011, 16:12 3
Holy_Metal
спасибо вам большое
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
29.04.2011, 16:12

Массивы. Найти номер последнего элемента равного нулю. Сформировать одномерный массив
дан массив x (n, m). найти номер последнего элемента равного нулю (такие элементы обязательно...

Одномерный массив. Есть ли в одномерном массиве три подряд идущих одинаковых элемента
помогите пожалуйста решить задачу. Спасибо заранее Если в одномерном массиве имеются три подряд...

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

Дан одномерный массив Е(10) элементы которого вводятся с клавиатуры. Подсчитать сумму максимального и минимального элемента в массиве Е.
Здравствуйте программисты) Меня не было всего лишь на паре тем по паскалю, и по этому не знаю...

Одномерный массив. Если пятый элемент таблицы меньше десятого элемента, то присвоить этим элементам удвоенное собственное значение
Одномерный массив из 12 элементов заполнить случайным образом числами от 0 до 50. Если пятый...

Упорядочить одномерный числовой массив методом по возрастанию обменов. При этом сравниваются два соседних элемента массива, и если они не упорядочены,
Упорядочить одномерный числовой массив методом по возрастанию обменов. При этом сравниваются два...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.