программа :сформировывает массив содержащий 15 случайных целых чисел принадлежащих промежутку

даа всё верно сообразили))

а если 0 то что делать?

понятия не имею,это программа.

вот и спрашиваю как решать

нет он же нечетный и не четный что с ним во время программки делать прибавлять 1 либо пренебрегать?

эу

я не знаю

можно я вам ещё дам одну задачку

а/

Формерует массив,содержащий 9 случайных вещественных чисел,пренадлежащий интервалу [-2;3] и подсчитывает сумму отрицательных чисел.Вввод в столбец с 2-мя десятичными знакоми

Var
a:array[1..15] of integer;
c,e:real;i:integer;
begin
randomize;
for i:=1 to 15 do
 begin
 a[i]:=random(9);
 end;
for i:=1 to 15 do
 begin
  e:=a[i] div 2;
  c:=a[i]/2;
   if a[i]=0 then write(a[i],' ')
   else
   begin
   if e=c then
    begin
     c:=a[i]+1; 
    write(c,' ');
    end
      else
    begin
     c:=a[i]*2;
     write(c,' ');
    end;
    end;
 end;
end.