ответ:Событие: решение задачи. Источник ифнормации: учитель. Приемник информации: ученик. Информационный носитель: доска.
Событие: измерения давления. Источник ифнормации: пациент. Приемник информации: врач. Информационный носитель: тонометр.
Событие: воспроизведение аудиофайла. Источник информации: пользователь. Приемник информации: сайт. Информациональнный носитель: ПК/телефон.
Событие: воспроизведение: видео и аудиофайла. Источник информации: пользователь. Приемник информации: телевизор. Информациональный носитель: телевизор.
Событие: воспроизведение музыкального фрагмента в живую. Источник информации: ученик. Приемник информации: ближайшие слушатели. Информациональнный носитель: гитара.
Объяснение:
var a:array[1..n] of integer; i:integer;
begin
for i:=1 to n do begin a[i]:=random(ma-mi+1)+mi; write(a[i],' ') end;
writeln;
for i:=1 to n div 2 do begin a[2*i]:=a[2*i]+a[2*i-1]; a[2*i-1]:=a[2*i]-a[2*i-1]; a[2*i]:=a[2*i]-a[2*i-1] end;
for i:=1 to n do write(a[i],' ')
end.