Цитата

Кстати korob2001 а что будет если начальный массив будет иметь > одного одиночного елемента ? ;)

О том, что будет читай выше.

Цитата

@a = qw(8 21 7 1 4 7 9 21 43 4 43 1 ); $c{$_}++  for @a; push @d, $c{$_} == 1 ? $_ : next for keys %c; print "@d";

Нормально, но вся проблема в том, что здесь два цикла, а нужо <= 1. Так написано в условии. ;)))))

Цитата

@a = qw(8 21 7 1 4 7 9 21 43 4 43 1 ); @a = sort {$a <=> $b } @a; for (my $i = 0; $i < @a; $i += 2) {   push @d, $a[$i] != $a[$i+1] ? $a[$i--] : next } print "@d";

Решение отличное, но здесь человека, начавшего эту тему, может смутить вот эта строка:

Код

@a = sort {$a <=> $b } @a;

потому как такой пример не подошёл:

Код

#!/usr/bin/perl @arr = qw( 21 7 1 4 7 9 21 43 4 43 1 ); map { $temp{ $_ }++ } @arr; %temp = reverse %temp; print $temp{ 1 };

Это сообщение отредактировал(а) korob2001 - 13.12.2004, 07:57

Код

k:=1; for i:=1 to n do begin if A[k]=A[i+1] then  begin   delete(A[k]);   delete(A[i+1]);   i:=1;   k:=1  end else ShowMessage('а вот оно - число'+A[k]); end;

должно работать.

Это сообщение отредактировал(а) ALEXANDRO - 19.12.2004, 02:53

опять забыл зайти по нормальному . В общем это ^ моё. ( то что наверху)

Vladimir13
мы юзаем теги {code} и пишем, что за язык
Добавлено @ 02:53
надеюсь я прально понял, это Delphi?

Цитата(ALEXANDRO @ 19.12.2004, 02:52)

надеюсь я прально понял, это Delphi?

ведь понял же . Где умею там и пишу.

Vladimir13
я, может, и понял, только вот кто-то другой наверняка не понял... ведь не так трудно написать, да?

ну, извините, учту на будущее.