Статистика
Всего в нашей базе более 4 327 664 вопросов и 6 445 978 ответов!

Массив задан датчиком случайных чисел на интервале [-37, 66]. Найти наименьший нечетный элемент. Размер произвольный.

10-11 класс

лизик2 29 апр. 2015 г., 4:30:18 (9 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
Nastypro100
29 апр. 2015 г., 5:23:10 (9 лет назад)

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.

Ответить

Другие вопросы из категории

Как телефон перепрограммировать на другую страну? И возможно ли это?

Например, я живу в России, но хочу чтобы телефон воспринимал приложения с Америки или что-то типа того. Для этого его надо перепрошить, кажется?

Читайте также

1. Задайте массив из 10 элементов с помощью датчика случайных чисел. Найдите среднее арифметическое нечетных элементов массива с нечетными

индексами. выведите на экран исходный массив и полученное среднее арифметическое.
2. Задайте массив из 10 элементов с помощью датчика случайных чисел. замените все элементы с четными индексами максимальными. Выведите на экран исходный и измененный массивы

1)напишите программу формирования массива размеров 5 х 5 с помощью датчика случайных чисел.замените в нем все четные значения элементов суммой

индексов элементов главной диагонали.Выведите на экран исходный и измененный массивы (программа на языке Паскаля)
2)Составьте программу формирования и вывода на экран одномерного массива, состоящего из удвоенных минимальных элементов строк двумерного массива, заданного с помощью датчика случайных чисел



Вы находитесь на странице вопроса "Массив задан датчиком случайных чисел на интервале [-37, 66]. Найти наименьший нечетный элемент. Размер произвольный.", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.