Вопрос по информатике:
Дан массив из 20 чисел заданных случайным образом. Найти: наименьшее нечетное число и его номер. Вывести на экран исходный массив, наименьший нечетный и написать блок схему.
Pascal ABC.
- 13.09.2018 23:57
- Информатика
- remove_red_eye 15903
- thumb_up 9
Ответы и объяснения 1
Var
a: array[1..20] of integer;
i,x,x1,min,min1: integer;
begin
min:=32767;
randomize;
for i:=1 to 20 do
a[i]:=random(200)-100; //Заполнение массива
writeln('Исходный массив: ');
for i:=1 to 20 do
begin
write(' ',a[i],' ');
if ((a[i]
min:=a[i];
min1:=min;
x:=i;
end;
end;
writeln();
write('Позиция: ',x,', значение: ',min1);
end.
- 14.09.2018 18:17
- thumb_up 33
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.