1) собирается - журналист опрашивает людей для статьи 2) обрабатывается - ученик решает уравнение 2) упрощается - преподователь объясняет материал 3) создается - журналист придумывает статью 4) запоминается - парнень запоминает номер телефона девушки 5) измеряется - программист рассчитывает сколько бит займет программа 6) копируется - ученик списывает у одноклассника 7) передается - две девушки обмениваются новостями 8) принимается - ученики слушают учителя на уроке 9) разрушается - статья журналиста отвергается 10) делится на части - человек разбирает сообщение в котором пропущены пробелы 11) ищется - человек ищет материал для реферата в интернете
Если вводить с клавиатуры, то для чего использовать random? В программе ввод с клавиатуры отключен. const n=7; var t:array[1..n] of integer; sr,srp,sro:real; i,kp,ko:integer; begin Randomize; for i:=1 to n do begin // readln(t[i]); // ввод с клавиатуры t[i]:=random(7)-3; writeln(i,' - ',t[i]:2); end; sr:=0; srp:=0; sro:=0; kp:=0; ko:=0; for i:=1 to n do begin sr:=sr+t[i]; if t[i]>0 then begin srp:=srp+t[i]; kp:=kp+1; end; if t[i]<0 then begin sro:=sro+t[i]; ko:=ko+1; end; end; sr:=sr/n; srp:=srp/kp; sro:=sro/ko;writeln('Средняя температура недели = ',sr:5:2); writeln('Средняя положительная = ',srp:5:2); writeln('Средняя отрицательная = ',sro:5:2); end.
