Uses SysUtils,Windows; var a:array of Integer; i,n,s,o:Integer; begin o:=0; s:=0; SetConsoleOutputCP(1251); Randomize; write('Введите "N": '); readln(n); SetLength(a,n); for i:=0 to Length(a) do begin a[i]:=Random(10)-5; write(a[i]:3); end; Writeln; Writeln; for i:=0 to Length(a) do begin if a[i] mod 2=1 then Inc(s); if a[i]<0 then Inc(o); a[i]:=a[i]*(-1); end; Writeln('Кол-во отрицательных элементов: ',o); Writeln('Кол-во нечетных элементов: ',s); Writeln; for i:=0 to Length(a) do write(a[i]:3); readln; end.
Открой ворд и посмотри списки как их можно сделать. Это считается нумерованным. Если ты конечно про список с вариантами ответов