Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Resident_W
0 / 0 / 0
Регистрация: 14.05.2012
Сообщений: 4
#1

Сравнить искомый элемент поочерёдно с элементами массива - Pascal ABC

14.05.2012, 21:02. Просмотров 748. Ответов 3
Метки нет (Все метки)

Помогите пожалуйста с написанием следующей программы:

1.Осуществить ввод массива одним из четырёх способов и вывести его на экран.
2.Запросить с клавиатуры искомы элемент.
3.Используя цикл для обработки массива, сравнить искомый элемент поочерёдно с элементами массива:
а) при совпадении искомого элемента с элементом массива суммировать кол-во таких элементов
б) если искомый и очередной не совпадают, перейти к очередному элементу.

4.По завершению цикла выдать:
а) Таких элементов нет(нет ни одного совпадения)
б) Такие элементы есть(с указанием числа совпадений).

Примечание: выдать на экран индексы найденных элементов.
5. КОнец.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
14.05.2012, 21:02
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Сравнить искомый элемент поочерёдно с элементами массива (Pascal ABC):

Найти минимальный элемент массива, сумму элементов между первым и последним положительными элементами
В одномерном массиве состоящем из n вещественных элементов,вычислить...

Дан массив A(n). Создать новый массив , элементами которого являются произведения A(i) на максимальный элемент массива A
Дан массив A(n). Создать новый массив , элементами которого являются...

Дан массив А с N элементами. Найти максимальный элемент с нечетным индеском и минимальный элемент с четным
Дан массив А с N элементами. Найти максимальный элемент с четным индеском и...

Два исходных массива объединить в один, включив элементы второго массива между K и (K+1) элементами первого массива.
Ребят, помогите, пожалуйста, сделать задачи, так как сама в этом ничего не...

Заполнить массивы: В(N) - элементами четных номеров, С(N) - элементами нечетных номеров массива
Заполнить массивы: В(N) - элементами парных номеров, С(N) - элементами непарных...

Найти искомый массив
{d}_{i}={a}_{i}-{a}_{2}5{b}_{i}+{2} - формула расчета элементов массива (D) 10....

3
3a9Ic
141 / 129 / 113
Регистрация: 08.04.2012
Сообщений: 245
14.05.2012, 21:40 #2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Const n=10;
var a:array[1..n] of integer;
    i,m,q:integer;
begin
     for i:=1 to n do
     begin
          a[i]:=Random(13);
          write(' a[',i,']=',a[i]);
     end;
writeln('');
write('Введите искомое значение=');Read(m);
for i:=1 to n do
if a[i]=m then inc(q);
if q=0 then writeln('Таких совпадений нет!')
else writeln('Такое совпадение ',q,' раз(а)')
end.
1
Resident_W
0 / 0 / 0
Регистрация: 14.05.2012
Сообщений: 4
14.05.2012, 23:01  [ТС] #3
За91c,спасибо, а как выдать индексы?
0
3a9Ic
141 / 129 / 113
Регистрация: 08.04.2012
Сообщений: 245
14.05.2012, 23:27 #4
Индекс искомого элемента в массиве?
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Const n=10;
var a:array[1..n] of integer;
    i,m,q,index:integer;
begin
     for i:=1 to n do
     begin
          a[i]:=Random(13);
          write(' a[',i,']=',a[i]);
     end;
writeln('');
write('Ââåäèòå èñêîìîå Г§Г*Г*Г·ГҐГ*ГЁГҐ=');Read(m);
for i:=1 to n do
if a[i]=m then
begin
     inc(q);
     index:=i;
     writeln('Г€Г*äåêñ èñêîìîãî ýëåìåГ*ГІГ*=',index);
end;
if q=0 then writeln('Г’Г*ГЄГЁГµ ñîâïГ*äåГ*ГЁГ© Г*ГҐГІ!')
else writeln('Г’Г*êîå ñîâïГ*äåГ*ГЁГҐ ',q,' Г°Г*Г§(Г*)')
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
14.05.2012, 23:27
Привет! Вот еще темы с решениями:

Заменить последний положительный элемент массива на второй элемент массива
Я вас очень сильно прошу решите пожалуйста эту задачу я умоляю вас помоготе мне...

Разделить каждый элемент массива на максимальный по модулю элемент массива
1. Разделить каждый элемент массива целых чисел, в котором не все элементы...

работа с элементами массива в заданном интервале, чётные и нечётные элементы массива
Задача: Определить наибольший элемент среди нечётных по номеру элементов второй...

Суммирование M первых элементов сформированного массива с M последними элементами же массива
Файл исходных данных содержит значения величин N, M и элементов массива...


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

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

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