Школьная задача, Массив (последовательность чисел) Опции

[Сержик]

Задали задачу, написал код но что то не проходит ( последний раз писал 7 лет назад)
Дана последовательность целых чисел a1, a2, ..., am . Постройте на ее основе новую
последовательность, содержащую только те числа, которые в исходную
последоватеьность входят по одному разу.

uses crt;
const nmax=100;
var a:array[1..nmax] of integer;
n,i,j:byte;
f,k:boolean;
begin
clrscr;
randomize;
repeat
write('Размер последовательности A до ',nmax,'n=');
readln(n);
until n in [1..nmax];
writeln('Последовательнось:');
for i:=1 to n do
 begin
  a[i]:=random(10);
  write(a[i]:3);
 end;
writeln;
writeln;
writeln('Входят по одному разу:');
k:=false;
for i:=1 to n do
 begin
  f:=true;
  for j:=1 to n do
  if(a[i]=a[j])and(i<>j) then f:=false;
  if f then
   begin
    write(a[i]:3);
    k:=true;
   end;
  end;
if not k then write('Таких чисел нет');
end.

Что то не пойму в чем дело,почему не работает, задачу помогал делать друг (основная работа его)
Буду благодарен за помощь

[Krjuger]

Федосеев Павел png хуже качеством,но занимает места меньше.Поскольку для данного рода фоток качество вообще не важно(в разумных пределах конешно же).То логичней использовать формат,который занимает меньше памяти.Можно еще в плюсы записать,что интернета меньше кушает,да, немного натянуто,но все же.

JPEG для того что бы можно было посмотреть на всех устройствах (у меня телефон его поддерживает)

Если чесно,то весьма сомнительный довод. То что у вас на телефоне поддерживается,не значит,что у всех поддерживается,функционал,знаете ли бывает разный.Смысл сидеть да форуме с данной тематикой с мобильного телефона????Это не развлекательных Баш.

const nmax=100;
var a:array[1..nmax] of integer;
n,i,j:byte;
f,k:boolean;
begin
randomize;
repeat
write('Размер последовательности A до ',nmax,'n=');
readln(n);
until n in [1..nmax];
writeln('Последовательнось:');
for i:=1 to n do
 read(a[i]);
for i:=1 to n do
 write(a[i]:3);
writeln;
writeln;
writeln('Входят по одному разу:');
k:=false;
for i:=1 to n do
 begin
  f:=true;
  for j:=1 to n do
  if(a[i]=a[j])and(i<>j) then f:=false;
  if f then
   begin
    write(a[i]:3);
    k:=true;
   end;
  end;
if not k then write('Таких чисел нет');
readln;
end.

Если я правильно тебя понял,если неправильно,то обьясни,что тебе надо более доходчиво.

Сообщение отредактировано: Krjuger - 8.04.2012 23:04

[TarasBer]

png хуже качеством

PNG вообще не теряет качество, вообще-то. В отличие от ужасного мыльного жопега.
Жопег нужен только там, где ПНГшные алгоритмы сжатия сливают по размеру.

Правка - да и то, зачастую, если ПНГ хреново сжимает, то есть смысл сначала перегнать в 256 или 16 -цветный формат (только не пеинтом, микрософт до сих пор не осилил автопоиск оптимальной палитры), причём может даже без зашумления, а потом применить уже сжатие ПНГ.

Сообщение отредактировано: TarasBer - 9.04.2012 10:21