<u>// PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
Range(ReadInteger,1,-1).Select(t->1/t).Sum.Println;
end.
<u>Пример</u>
50
4.49920533832942
Опрератор ввода:
Read (значение следующего данного считывается с этой же строчки);
Readln (значение следующего данного считывается с новой строчки)
Опрератор вывода:
Write (выводит информацию и оставляет курсор в той же строке)
Writeln ( выводит информацию и переводит курсор на следующую строку)
Writeln (...) (выводит пустую строку
Var a:array [1..100] of integer;
s,i,k,n:integer;
sr:real;
begin
writeln('n=');
readln(n);
writeln('vvedite massiv=');
for i := 1 to n do
readln(a[i]);
s:=0;
k:=0;
for i := 1 to n do
begin
s:=s+a[i];
sr:=s/n;
end;
for i := 1 to n do
if a[i]>sr then inc(k);
writeln('sr=',sr,' k=',k);
readln;
<span>end.</span>
Готово............................
<span>99=10011001 в двоичной системе. класс сети B.
99.37.0.0 - адрес сети
0.0.125.186 - адрес компьютера в сети</span>