Дан массив содержащий 70 целых чисел. Опишите алгоритм, позволяющий найти и вывести наименьшее положительное нечетное число, содержащий в массиве. Гарантируется, что в массиве есть хотя бы одно положительное нечетное число
Program ABC;
const
n=70;
var
mass:array[1..n] of integer;
max,i:integer;
begin
{заполняем рандомными числами для проверки}
randomize();
for i:=1 to n do mass[i]:=random(100)-50;
{поиск и вывод}
max:=0;
for i:=1 to n do
if (mass[i] > 0) and (mass[i] mod 2 = 0) and (mass[i] > max) then
max:=mass[i];
writeln('max=',max);
readln;
end.
"Опишите алгоритм" ...при чем тут бейсик или паскаль?
⇢