Дан целочисленный массив из 20 элементов, все элементы которого – целые числа в интервале от -1000 до 1000. Опишите на языке программирования паскаль алгоритм, который находит минимальное значение из всех нечетных элементов массива, которые делятся на 5. Если таких чисел нет,нужно вывести сообщение "таких чисел нет"
Ответы на вопрос
Ответил siemens321
0
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.
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.
Новые вопросы
Биология,
2 года назад
Математика,
2 года назад
Информатика,
9 лет назад
Обществознание,
9 лет назад
Химия,
10 лет назад