Предмет: Информатика,
автор: vladikkulpinovv
вводится последовательность из натуральных чисел. Найти минимальный элемент среди нечётных. Через if Pascal
Ответы
Автор ответа:
0
var a,min: integer;
begin
readln(a);
min:=a;
while(a<>0) do begin
if(a<min) and (a mod 2<>0) then min:=a;
readln(a);
end;
write(min);
end.
Интересные вопросы
Предмет: Українська література,
автор: Chobanotlichnik1587
Предмет: Английский язык,
автор: Daulet8125
Предмет: История,
автор: class2086
Предмет: Математика,
автор: quickflick
Предмет: Математика,
автор: Аноним