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

Меню сайта

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

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

Статистика

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

Форма входа


Главная » Файлы » ЗАНЯТИЕ 5 » Одинаковые элементы в массиве

Массив из не повторяющихся чисел
22.10.2012, 23:04

Массив из не повторяющихся чисел

Дан массив A[i] из N чисел, вывести новый массив  S[i] состоящий из неповторяющихся чисел массива A[i]

 

программа

пояснения

var

    a: array[1..1000] of integer; //сжимаемый массив

    s: array[1..1000] of integer; //сжатый массив

    n,i,k,l: integer;

    flag: boolean;

 

begin

    read (n);

 

    for i := 1 to n do

    read (a[i]);

 

         for i := 1 to n do

        s[i]:=-1;

 

    k := 1;

    for i := 1 to n do begin

        flag := true;

        for l := 1 to k do

            if s[l] = a[i] then

                flag := false;

 

        if flag = true then begin

            s[k] := a[i];

           

 

k := k+1

        end;

    end;

 

    for i := 1 to k-1 do

        write (s[i]:3);

 

readln

end.

 

Описание переменных

 

 

 

 

 

 

 

начало программы

чтение числа элементов в массиве

 

чтение массива

 

 

создаем массив со значениями -1

 

 

 

для i от 1 до n делай

 

для l от 1  k делай

если в новом массиве s[l] значения равны значениям в старом  a[i] то метка ложна

                flag := false;

 

если метка истина, то начинай:

новому массиву присвой значение из старого

 

 

 

 

печать нового массива

 

Категория: Одинаковые элементы в массиве | Добавил: i_elf
Просмотров: 2001 | Загрузок: 0 | Комментарии: 2 | Рейтинг: 0.0/0
Всего комментариев: 0
Имя *:
Email *:
Код *:
Поиск

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

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