простая задача на массив, девушке срочно требуется помощь Опции

[pusha]

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

[мисс_граффити]

lapp, да имен переменных мне не жалко. просто обзывала их по привычке. fl - это flag...
но я не

Miss_Graffity

, а Miss_Graffiti
сорри за офф.

теперь по теме.
если уж брать за основу мой код, то, продолжая следовать женской логике, новый массив создавать не будем.
(переменные оставла, как были... )

program blondi;
const n=10;
var a,b:array[1..n]of integer;
fl:boolean;
i,j,kol:integer;
begin
randomize;
kol:=0;
{отделяем цикл с заполнением - потом будем работать только с готовым массивом}
for i:=1 to n do
  begin
  a[i]:=random(10);
  write(a[i], ' ');
  end;

for i:=1 to n do
  begin
  fl:=false;{изначально считаем, что элемент нам не нужен}
  for j:=1 to n do
    if (a[i]=a[j]) and (i<>j) then {первая проверка: если элемент повторяющийся...}
      fl:=true;{если первый тест пройден, задумываемся о том, что его можно взять}
  if fl then {если решили, что предварительно он подходящий}
    for j:=1 to kol do
      if b[j]=a[i] then {то проверяем - может, мы его уже взяли?}
        fl:=false;{второй раз брать не будем}
  if fl then {если по всем критериям подходит}
    begin
    inc(kol);
    b[kol]:=a[i];{то берем}
    end;
  end;
writeln;
for i:=1 to kol do
  write(b[i],' ');
readln;
end.

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

Сообщение отредактировано: мисс_граффити - 1.12.2006 20:07