Получить все числа которые входят в последовательность по одному разу

@orkk · Регистрация: 12.05.2011

помогите написать программу

даны целые числа A1..........An. получить все числа которые входят в последовательность по одному разу

@Просто лис · 13.05.2011, 12:00

Раз раз orkk orkk как программа? Повторяю, как программа?

Pascal

Var a:array[1..200] of integer;
i,j,flag:byte;
begin
randomize;
for i:=1 to 200 do
begin
flag:=0;
for j:=1 to 200 do
begin
a[j]:=random(200)+1;
if a[j]=a[j+1]
then begin
flag:=1; break; end;
end;
if flag=0 then
Writeln(' Chislo pod nomerom ',i,' 1 raz ');
Write('a[',i,'] = ',a[i]);
end;
readln;
end.

@orkk 0 / 0 / 0 Регистрация: 12.05.2011 Сообщений: 13
		1
	Получить все числа которые входят в последовательность по одному разу 13.05.2011, 11:32. Показов 1263. Ответов 1 Метки нет (Все метки) помогите написать программу даны целые числа A1..........An. получить все числа которые входят в последовательность по одному разу 0

Опции темы

Получить все числа которые входят в последовательность по одному разу

Решение