14 ! , первому лучший ответ составить алгоритм позволяющую создавать массив заполненный числами задаными датчиком случайных чисел на интервале (-37, 66вывести на экран нечетные елементы массива а. размер произвольный

// PascalABC.NET 3.3

begin
 var a:=ArrRandom(10,-37,66); a.Println;
 writeln('Нечётные элементы:');
 a.Where(x->x mod 2<>0).Println;
end.

Пример:
10 53 1 16 -28 29 22 59 66 -31
Нечётные элементы:
53 1 29 59 -31

Циклы VBA (ч.1). Команды организации циклов
Какие либо действия процедуры повторяющиеся заданное количество раз или пока выполняется или не выполняется некоторое условие называют циклом.

Процесс выполнения все операторов, заключенных в структуру цикла, один раз называется итерацией цикла.

Структуры цикла, всегда выполняющиеся заданное количество раз, называются циклами с фиксированным числом итераций. Другие типы структур цикла повторяются переменное количество раз в зависимости от некоторого набора условий. Такие циклы называются неопределенными циклами.

Блок операторов, находящийся между началом и концом цикла называется "тело цикла".

Самой простой структурой цикла является фиксированный цикл.

PascalABC.NET
Программа считает число нулей стоящих на четных местах в строке, считая первый элемент строки нечетным.

var   
t : text;   
a,k,i : integer;  
begin 
assign (t,'File.txt'); 
reset (t); 
i := 0;  k := 0;   
While not Eof (t) do   
begin     
i := 0;     
While not Eoln (t) do     
begin       
read (t,a);       
if (a = 0) and (i = 1) then         
k := k +1;       
if i = 0 then         
i := 1       
else         
i := 0;     
end;     
readln (t);    
end;        
close (t);   
writeln (k); 
end.