Var a:array[1..10000]of integer; n,i,k,c:integer; summ:real; begin readln(n); for i:=1 to n do a[i]:=random(100); for i:=1 to n do begin if (a[i] mod 5=0)or(a[i] mod 10>0) then begin c:=c+a[i]; k:=k+1; end; end; summ:=c/k; writeln(summ); end.
Первым великим изобретением древнего Китая считается бумага. Согласно китайским летописям династии Восточная Хань, бумагу изобрел придворный евнух династии Хань — Цай Лун в 105 году н.э. В глубокой древности в Китае до появления бумаги для записей использовали скрученные в свитки полоски из бамбука, свитки из шелка, деревянные и глиняные таблички и т.д. Наиболее же древние китайские тексты или «цзягувэнь» были обнаружены на черепашьих панцирях, которые датируются 2-м тысячелетием до н. э. (династия Шан). В ІІІ веке бумагу уже широко применяли для письма вместо более дорогих традиционных материалов. Разработанная Цай Лунем технология производства бумаги состояла в следующем: кипящая смесь из пеньки, коры тутового дерева, старых рыболовных сетей и тканей превращалась в пульпу, после чего её растирали до пастообразного однородного состояния и смешивали с водой. В смесь погружали сито в деревянной раме из тростника, вычерпывали ситом массу и встряхивали, чтобы жидкость стекла. При этом в сите образовывался тонкий и ровный слой волокнистой массы. Эту массу затем опрокидывали на гладкие доски. Доски с отливками клали одна на другую. Связывали стопку и укладывали сверху груз. Затем затвердевшие и окрепшие под прессом листы снимались с досок и сушились. Изготовленный по такой технологии бумажный лист получался легким, ровным, прочным, менее желтым и более удобным для письма!
a:array[1..10000]of integer;
n,i,k,c:integer;
summ:real;
begin
readln(n);
for i:=1 to n do
a[i]:=random(100);
for i:=1 to n do begin
if (a[i] mod 5=0)or(a[i] mod 10>0) then begin
c:=c+a[i];
k:=k+1;
end;
end;
summ:=c/k;
writeln(summ);
end.