Дан одномерный массив. Сформировать иной массив из положительных нечетных, либо вывести

Почему? Мне все равно на чем писать))) Просто длиннее.

Ждем :)!

И на будущее про язык не запамятовывайте. А то позже претензии некуда будет выставлять про "не то и не так".

Ну спасибо, здесь некие команды мы не изучали, но сейчас пробнем подкорректировать )) Если что отпишу ! Спасибо

Есть система справки... интернет, в конце-концов. Inc(k) - стандартная конструкция язывка, сменяет k:=k+1, Odd(p) - стандартная тоже, отдаёт True, если р нечетное.

Братан, от души !!! Спасибо ))) Как здесь тебя похвалить )

Не необходимо меня выхвалять. Под ответом есть синяя кнопка "Спасибо" - щелкнув её Вы можете выразить свою признательность. А количество звездочек рядом - определяют размер таковой признательности.

Если можно еще блок - схему :D

Мед и ложку? С блок-схемами натужил... моя программка рисования делает стандартные квадратики и туда формулы не помещаются.

Хорошо, раззобрались

Boland Pascal 7.01
uses Crt;
const
  n=20;
var
  a,b:array[1..n] of integer;
  i,k:integer;
begin
  ClrScr;
  Randomize;
  Writeln('*** Исходный массив ***');
  k:=0;
  for i := 1 to n do begin
    a[i]:=Random(51)-25;
    Write(a[i]:4);
    if Odd(a[i]) and (a[i]gt;0) then
      begin Inc(k); b[k]:=a[i] end
  end;
  Writeln;
  if kgt;0 then begin
    Writeln('*** Сформированный массив ***');
    for i:=1 to k do Write(b[i]:4);
    Writeln
    end
  else Writeln('Нет элементов для формирования выходного массива');
  ReadKey
end.

Тестовое решение:
*** Начальный массив ***
  -3 -16  -9  20  18  11 -25  14 -22 -20 -11  15 -19  20 -16  19  -2  -4  -8 -17
*** Сформированный массив ***
  11  15  19

А вот для сопоставленья современный вариант программки:
// PascalABC.NET 3.0, сборка 1088
begin
  var n:=ReadInteger('Размер массива=');
  var a:=ArrRandom(n,-25,25);
  Writeln('*** Начальный массив ***',1310,a);
  var b:=a.Where(x-gt;(Odd(x) and (xgt;0)));
  If b.Countgt;0 then Writeln('*** Сформированный массив ***',1310,b)
  else Writeln('Нет частей для формирования выходного массива')
end.

Тестовое решение:
Размер массива=20
*** Исходный массив ***
[-9,-1,8,-7,13,0,-22,20,18,-15,9,-14,16,15,0,1,9,-17,22,-13]
*** Сформированный массив ***
[13,9,15,1,9]

Исправлено: по "просьбам трудящихся" добавлена блок-схема.