Выбери из предложенного списка, что является приёмником информации, а что - нет.1. Водитель автомобиля.Да о Нет2. Учебник на парте ученика.Да о НетНетo Да3. Учитель, слушающий ответ ученика.Да о Нет4. Собака на занятий по дрессировке.Да оНет5. Мальчик, который смотрит в окно на уроке.о даНет6. Дорожный знак.13 м следующий вопро1 Предыдущий вопрос​

var a, b, c, i, j, n, ch:integer;
      s, p:array [1..10000] of integer;
begin
   n:=30;
   for i:=1 to n do
      s[i]:=random(64000)-32000;
      writeln('Данный массив');
   for i:=1 to n do
      write (s[i],' ');
   a:=s[1];
   for i:=1 to n do
      if s[i]>a then
         a:=s[i];
   for i:=1 to n do
       if s[i]=a then
          begin
          j:=j+1;
          p[j]:=i;
          end;
    c:=j;
    writeln;
    writeln('Полученный массив');
    for i:=1 to n do
       begin
       ch:=0;
       for j:=1 to c do
          if i=p[j] then inc(ch);
       if ch=0 then write (s[i],' ');
       end;
end.       
P.S. Надеюсь на благодарность и лучший ответ.