А) Ваня решает у доски задачу; Хранение информации (в мозге Вани) Обработка информации (оперирование исходной информацией для получения новой по определенным правилам) Передача информации (От Вани – классу, используя доску)
б) Оля слушает по радио новости; Передача информации (от радио – Оле, используя динамики) Хранение информации (в мозге Оли)
в) Дима учит правило; Хранение информации (внешняя память, книга) Передача информации (от книги – Диме, используя текст) Хранение информации (в мозге)
г) Саша и Вова разговаривают по телефону; Хранение информации (в мозге у Саши) Передача информации (от Саши – Вове, используя телефон) Хранение информации (в мозге у Вовы)
д) Женя отправляет SMS-сообщение; Хранение информации (в мозге у Жени) Передача информации (от Жени – получателю, используя телефон) Обработка информации (кодирование по каналу связи, декодирование) Хранение информации (во внутренней памяти телефона у получателя)
е) Лена рисует план квартиры. Хранение информации (в мозге у Лены) Обработка информации (структурирование, математические расчеты) Хранение информации (внешняя память, лист бумаги/холст)
Program Bolatkabylov; uses crt; const n=4; const m=5; var s:string; i,j,min:integer; A:array[1..n,1..m] of integer; B:array[1..m] of integer; begin S:='*** Alphaeus is thinking... ***'; for i:=1 to length(s) do begin write(s[i]); for j:=1 to 500000 do s[i]:=s[i]; end; writeln(); writeln('*** OK ***'); writeln(); writeln('Для заданного массива А размерности 4х5 сформировать одномерный массив В, '); writeln('элементами которого будут минимальные элементы в каждом столбце массива А.'); randomize; writeln(); writeln('Массив А: '); //Заполняем массив А случайными числами и выводим его for i:=1 to n do begin for j:=1 to m do begin A[i,j]:=random(100)-50; write(A[i,j]:4,' '); end; writeln(); end; //Находим минимальные элементы в каждом столбце и сохраняем в массив В for j:=1 to m do begin min:=A[1,j]; for i:=1 to n do begin if A[i,j]<min then min:=A[i,j]; end; B[j]:=min; end; //Выводим массив В writeln(); writeln('Mассив B: '); for j:=1 to m do write(B[j]:4,' '); end.
Объяснение:
Пробовал закрыть дерево процессов ?