Автор сергей сидоренко задал вопрос в разделе Домашние задания
Pascal (одномерные массивы) и получил лучший ответ
Ответ от Наталья[гуру]
файл -
Ответ от 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);
думаю это должно сработать))
это потому что когда у тебя заканчивается цикл то переменная оставляет последнее значение, то есть 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.
Надо описать ещё одну переменную q и вставить внутрь
условного оператора ЗАПОМИНАНИЕ номера:
if (NWEC[p]<min)>0) then begin
Min:=NWEC[p]; q:=p end;
В Выводе надо выводить НЕ р, а q.
Ответ от 22 ответа[гуру]
Привет! Вот подборка тем с похожими вопросами и ответами на Ваш вопрос: Pascal (одномерные массивы)