Вопрос по информатике:
Дан целочисленный массив из 20 элементов, все элементы которого – целые числа в интервале от -1000 до 1000. Опишите на языке программирования паскаль алгоритм, который находит минимальное значение из всех нечетных элементов массива, которые делятся на 5. Если таких чисел нет,нужно вывести сообщение "таких чисел нет"
- 19.08.2016 23:15
- Информатика
- remove_red_eye 6761
- thumb_up 13
Ответы и объяснения 1
Var
a:array [1..100] of integer;
n,l,i,j:integer;
begin
for i:=1 to 20 do
read (a[i]);
for j:=1 to N-1 do
for i:=1 to N-j do
if a[i] > a[i+1]
then
begin
l:=a[i];
a[i]:=a[i+1];
a[i+1]:=l;
end;
for i:=1 to 20 do
if ((a[i] mod 2)=1) and ((a[i] mod 5)=0)
then
begin
writeln (a[i]);
break;
else writeln('таких чисел нет');
end;
end.
- 20.08.2016 23:39
- thumb_up 12
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.