nwec ru

Ответ от Bazh-olga[активный]
напиши еще кусок программы для поиска уже найденого элемента в исходном массиве со счетчиком

Ответ от Malina[активный]
это потому что когда у тебя заканчивается цикл то переменная оставляет последнее значение, то есть 17

Min:=NWEC[1];
p_min:=1;
for p:=2 to 17 do
begin
if (NWEC[p]<min)>0) then
begin
Min:=NWEC[p];
p_min:=p
end
end;
writeln('minimalnyi pologitelniy element raven',Min:5:1);
writeln('nomer minimalnogo pologytelnogo elementa raven',p_min);

думаю это должно сработать))

Ответ от Alexander Alenitsyn[гуру]
Надо описать ещё одну переменную q и вставить внутрь
условного оператора ЗАПОМИНАНИЕ номера:

if (NWEC[p]<min)>0) then begin
Min:=NWEC[p]; q:=p end;

В Выводе надо выводить НЕ р, а q.

Ответ от 3 ответа[гуру]

Ответ от 3 ответа[гуру]