Составить игру

@LLlyT-Nicl · Регистрация: 26.12.2016

Author24 — интернет-сервис помощи студентам

Составить игру в которой надо последовательно вводить элементы в массив.Числа должны быть в диапазоне он 0 до 256,так же разность между числами должна быть не меньше 7,вводимые элементы не должны повторятся.
Нужна помощь в проверке повторяющихся значений.

Pascal

var 
a:array[1..100] of integer; 
i,t:integer; 
begin 
read(a[1]); 
i:=2; 
while t=0 do 
begin 
read(a[i]); 
if (abs(a[i]-a[i-1])<7) or (a[i]<0) or (a[i]>255) then t:=1 else 
inc(i); 
end; 
writeln('error'); 
write(i-1); 
end.

@Puporev · 26.12.2016, 16:23

Сообщение от LLlyT-Nicl

в диапазоне он 0 до 256,т

Может от 0 до 255, чтобы использовать множество set of byte для проверки повторов?

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	26.12.2016, 16:23	2
	Сообщение от LLlyT-Nicl в диапазоне он 0 до 256,т Может от 0 до 255, чтобы использовать множество set of byte для проверки повторов? 0