Массив задан датчиком случайных чисел на интервале [-37, 66]. Найти наименьший нечетный элемент. Размер произвольный.
10-11 класс
|
const
n=15;
var
a:array [1..n] of integer;
i,min:integer;
begin
randomize;
for i:=1 to n do begin
a[i]:=random(104)-37;
write (a[i],' ');
end;
writeln;
min:=a[1];
for i:=2 to n do
if (odd(a[i])=true) and (a[i]<min) then min:=a[i];
writeln (min);
readln;
end.
Другие вопросы из категории
Например, я живу в России, но хочу чтобы телефон воспринимал приложения с Америки или что-то типа того. Для этого его надо перепрошить, кажется?
Читайте также
35]. Размер произвольный. Значение С вводится с экрана.
20. ПОМОГИТЕ ПОЖАЛУЙСТА=)
индексами. выведите на экран исходный массив и полученное среднее арифметическое.
2. Задайте массив из 10 элементов с помощью датчика случайных чисел. замените все элементы с четными индексами максимальными. Выведите на экран исходный и измененный массивы
индексов элементов главной диагонали.Выведите на экран исходный и измененный массивы (программа на языке Паскаля)
2)Составьте программу формирования и вывода на экран одномерного массива, состоящего из удвоенных минимальных элементов строк двумерного массива, заданного с помощью датчика случайных чисел