принадлежность числа к массиву
как правильно показать принадлежность числа "а" к массиву
while a<>0 do begin
readln(a);
if a in prosto then do sum:= sum +a;
end;
while a<>0 do begin
readln(a);
if a in prosto then do sum:= sum +a;
end;
если мне не изменяет память, то in используется для того, чтобы определить входит тот или иной элемент во множество, а для массивов такого нет, так что по всей видимости придется сверять с a все элементы массива.
Твоя память тебе верна :). Опеератор IN при сопоставлении с массивом жутко ругается. Причём почти матом :D
А если перебирать все элементы, прийдётся наверное применять цикл...
А если перебирать все элементы, прийдётся наверное применять цикл...
вместо
надо так:
Код:
if a in prosto then sum:= sum +a;
надо так:
Код:
for i:=1 to n do //я считаю, что prosto:array[1..n]of real(integer);
if a=prosto then
begin
sum:=sum+a;
break;
end;
if a=prosto then
begin
sum:=sum+a;
break;
end;