Вводить числа до тех пор пока не пудет введено положительное найти номер минимального. (Решать в паскале)
Вводить числа до тех пор пока не пудет введено положительное найти номер минимального. (Решать в паскале)
Гость
Ответ(ы) на вопрос:
Гостьvar a,i,min,mina:integer;
begin
i:=0;
repeat
write ('Number = ');
readln(a);
inc(i);
if (a<0) and (a0;
writeln ('Index min: ',min);
readln;
end.
Не нашли ответ?
Похожие вопросы