Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/6: Рейтинг темы: голосов - 6, средняя оценка - 4.50
0 / 0 / 2
Регистрация: 12.11.2012
Сообщений: 8
1

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

12.11.2012, 23:06. Просмотров 1134. Ответов 1
Метки нет (Все метки)


Задан массив А. Переписать в массив В те элементы массива А, которые встречаются в нем более двух раз в обратном порядке. Помогите пожалуйста Знаю, что надо создать массив индексов, но как реализовать не понимаю.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
12.11.2012, 23:06
Ответы с готовыми решениями:

Переписать элементы массива А в массив В в обратном порядке
Переписать элементы массива А в массив В в обратном порядке (для проверки результата элементы...

Переписать элементы массива X в массив Y в обратном порядке
Переписать элементы массива X в массив Y в обратном порядке и найти порядковый номер максимального...

Переписать все элементы массива А в массив А1 в обратном порядке
Ввести массив А(n). Переписать все элементы массива А в массив А1 в обратном порядке. Массивы А и...

Переписать элементы данного массива в обратном порядке в массив Y
Здравствуйте, помогите пожалуйста: нужно ввести одномерный массив Х вещественных чисел....

1
0 / 0 / 2
Регистрация: 12.11.2012
Сообщений: 8
24.12.2012, 21:44  [ТС] 2
Лучший ответ Сообщение было отмечено lera_boom как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
program massiv;
const N=10;
var a,b:array[1.. N] of integer;
i,j,k,iB,count:integer;
flag:boolean;
begin
for i:=1 to N do
begin 
write ('Vvedite chislo',i,':');
readln(a[i]);
iB:=1;
end;
for i:=N downto 1 do
begin
count:=0;
for j:=1 to N do
begin
if (a[i]=a[j]) then count:=count+1;
end;
if (count>=2) then
begin
flag:=true;
for k:=1 to iB-1 do
begin
if (a[i]=b[k]) then flag:=false;
end;
if (flag) then
begin
b[iB]:=a[i];
iB:=iB+1;
end;
end;
end;
writeln('array B');
for i:=1 to iB-1 do
begin
write(b[i]);
write(' ');
end;
readln;
 
END.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
24.12.2012, 21:44

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Переписать в новый массив элементы стартового массива в обратном порядке
Элементы массива – целые числа в пределах от -4 до 8. Переписать в новый массив элементы стартового...

Элементы заданного массива переписать в новый массив В в обратном порядке
1) Сформировать массив случайным образом, напечатать на экране. Подсчитать число и сумму...

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

Определить какие числа встречаются более двух раз, вывести на экран элементы больше среднего арифметического
В одномерном массиве, состоящем из n вещественных элементов: 1) определить какие числа встречаются...


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

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

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