var
i,j: integer;
x: real;
a : array [1..10] of real;
begin
for i := 1 to 10 do read (a[i]);
for i := 2 to 10 do
begin
for j := 10 downto i do
if a[j-1]>a[j] then
begin
x := a[j-1];
a[j-1] := a[j];
a[j] := x;
end;
end;
for i := 1 to 10 do write (a[i], ' ');
end;
var
a : array [1..10] of integer;
i, c, sum : integer;
begin
for i := 1 to 10 do read (a[i]);
c := 0; sum := 0;
for i := 1 to 10 do
if a[i] > 0 then
begin
inc (c);
inc (sum, sqr (a[i]));
end;
writeln (sum / c);
end.
Точный адрес - 3420 Boelter Hall, Университет Калифорнии, Лос-Анджелес.
На приложенном снимке 1969 года - сотрудники лаборатории Чарли Кляйн (Charley Kline), Гари Фальц (Gary Fultz) отвернулся к двери и справа Джон Постел (Jon Postel). Ну и, конечно, главный персонаж - компьютер Sigma 7 слева.
В этой комнате поздним вечером 29 октября 1969 года было отправлено первое сообщение сети ARPANET.
ARPANET (от англ. Advanced Research Projects Agency Network) — компьютерная сеть, созданная в 1969 году в США Агентством Министерства обороны США по перспективным исследованиям (ARPA) и явившаяся прототипом сети Интернет. 1 января 1983 года она стала первой в мире сетью, перешедшей на маршрутизацию пакетов данных. В качестве маршрутизируемого протокола использовался TCP/IP, который и по сей день является основным протоколом передачи данных в сети Интернет. ARPANET прекратила своё существование в июне 1990 года.