Паскаль Использовать обязательно цикл while!!
Сначала создать массив из 10 случайных чисел в диапазоне от 1 до 100. Вывести все элементы массива. Затем за число и вывести все элементы массива, не превышающие это число.
Как можно скорее

Var
  i,n,k,max:integer;
  s:string;
  a:array[1..12]of integer;
  naz:array[1..12]of string;
begin
naz[1]:=('январь');
naz[2]:=('февраль');
naz[3]:=('март');
naz[4]:=('апрель');
naz[5]:=('май');
naz[6]:=('июнь');
naz[7]:=('июль');
naz[8]:=('август');
naz[9]:=('сентябрь');
naz[10]:=('октябрь');
naz[11]:=('ноябрь');
naz[12]:=('декабрь');
write('Введите число N: ');
readln(n);
for i:=1 to n do
  begin
  write('Введите дату: ');
  readln(s);
  s:=copy(s,4,2);
  k:=StrToInt(s);
  a[k]:=a[k]+1;
  end;
for i:=1 to 12 do
  begin
  if a[i]>=max then
    begin
    max:=a[i];
    n:=i;
    end;
  end;
writeln('Месяц с наибольшим количеством: ',naz[n]);
end.

DIM A(6)
RANDOMIZE TIMER
FOR I = 1 TO 6
    A(I) = INT(RND * 20) - 10
    IF A(I) > 0 THEN S = S + 1
    PRINT A(I); " ";
NEXT I
PRINT
PRINT "S="; S

Новый паскаль АВС
var
   a:array[1..6]of integer;
   i,s:integer;
begin
  for i:=1 to 6 do
    begin
    a[i]:=random(-10,10);
    if a[i]>0 then s:=s+1;
    write(a[i],' ')
    end;
writeln;
writeln('Количество положительных: ',s)
end.

Старый паскаль АВС
var
   a:array[1..6]of integer;
   i,s:integer;
begin
  for i:=1 to 6 do
    begin
    a[i]:=random(20)-10;
    if a[i]>0 then s:=s+1;
    write(a[i],' ')
    end;
writeln;
writeln('Количество положительных: ',s)
end.