Дан целочисленный массив из 20 элементов, все элементы которого - целые числа в интервале от - 1000 до 1000. Опишите на языке программирования паскаль алгоритм, который находит минимальное значение из всех нечетных элементов массива, которые делятся на 5. Если таких чисел нет, нужно вывести сообщение "таких чисел нет"

Question

Информатика

Лавреныч

29 декабря, 06:35

Дан целочисленный массив из 20 элементов, все элементы которого - целые числа в интервале от - 1000 до 1000. Опишите на языке программирования паскаль алгоритм, который находит минимальное значение из всех нечетных элементов массива, которые делятся на 5. Если таких чисел нет, нужно вывести сообщение "таких чисел нет"

+2

Ответы (1)

Знаете ответ?

Каллимах · Answer 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.