2) дан целочисленный массив из 20 элементов, все элементы которого – целые числа в интервале от -1000 до 1000. опишите на языке или на одном из языков программирования алгоритм, который находит минимальное значение из всех нечетных элементов массива, которые делятся на 5.

var a: array [1..100] of integer; n,k,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 k: =a[i]; a[i]: =a[i+1]; a[i+1]: =k; 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; end; end.

т.д.

program;

var

max,val: integer;

label

start, ends;  

begin 

max: =-50;

val: =50;

start:

if val> max then val: =val-10

if val=max then goto ends;  

goto start;  

ends:

end.