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