МАТЕМАТИЧЕСКИЕ ОСНОВЫ ИНФОРМАТИКИ
Вторник, 24.12.2024, 03:10
ГлавнаяРегистрацияВход Приветствую Вас Гость | RSS

Меню сайта

Категории раздела
Массив [2]
Одинаковые элементы в массиве [3]

Наш опрос
Какой язык программирования Вы изучаете
Всего ответов: 1029

Статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0

Форма входа


Главная » Файлы » ЗАНЯТИЕ 5 » Массив

Поиск одинаковых элементов в массиве
15.11.2013, 12:04

Поиск одинаковых элементов в массиве

Пусть дан массив n чисел , которые могут принимать значения от 1 до  n, найти число одинаковых элементов в массиве.

Во входном файле в первой строке n - число элементов в массиве, во второй строке - массив, 
в выходном файле записаны числа по порядку, от 1 до n их встречи в массиве

Пример

input.txt

output.txt

3
1 1 2

2 1 0

5
2 1 3 2 3

1 2 2 0 0

Текст программы

Type
MyArray=Array[1..10] of integer;
var n, k, i, j: integer;
A : MyArray;
begin
assign(input,'input.txt'); reset(input);
assign(output,'output.txt'); rewrite(output);

readln (n);
for i:=1 to n do

read(A[i]);

for i:=1 to n do
write (A[i],' ');

writeln;

for i:=1 to n do
begin
 k:=0;
 for j:=1 to n do
 begin
 if A[j]=i then k:=k + 1;
 end;
 write (k,' ');
end;
close(input);
close(output);
end.
Категория: Массив | Добавил: i_elf
Просмотров: 2491 | Загрузок: 0 | Рейтинг: 0.0/0
Всего комментариев: 0
Поиск

Друзья сайта
  • Творческий учитель
  • Сайт ООАКМР
  • Школьный сайт
  • Информатика учебник
  • МОИ

  • Copyright MyCorp © 2024 Сделать бесплатный сайт с uCoz