Предмет: Информатика,
автор: Grtgji
ОЧЕНЬ СРОЧНО! ОТДАЮ ВСЕ БАЛЛЫ. Ввести последовательность случайным образом N=12 из диапазона [-15;15]. Найти наименьшее нечетное число последовательности.
Ответы
Автор ответа:
2
Ответ:
var n, i, x, min: integer;
begin
n:=12; //задаем количество чисел.
min:=16;//присваиваем минимум по правилу:"Минимуму присваиваем самое большое число".
Randomize;
for i:=0 to n-1 do //цикл для рандома 12 чисел. Можно написать " for i:=1 to n do"
begin
x:=Random(31)-15; //присваиваем перемененной "x" рандомное значение из диапазона [-15;15].
Writeln(x); //выводим значение "x".
if (min > x) and (x mod 2 <> 0) then //если минимум больше полученного "x" и "x" - нечетный, то
min:=x; //минимуму присваиваем значение "x".
end;
Writeln('Наименьшее нечетное число последовательности: ',min); //выводим ответ.
end.
Grtgji:
Аааа, спасибо большое! Ооочень помогла)))
Похожие вопросы
Предмет: Математика,
автор: sklyarovaelena1988
Предмет: Английский язык,
автор: sdknclddvvcksdv
Предмет: Математика,
автор: Veronika3410
Предмет: Геометрия,
автор: gulnara3854