<h3>var a:array [1..100001] of longint;
</h3><h3>r,k:real;
</h3><h3>s:longint;
</h3><h3>begin
</h3><h3> t:=1;k:=0;
</h3><h3> while t<>0 do
</h3><h3> begin
</h3><h3> read(t);
</h3><h3> inc(k);
</h3><h3> a[k]:=t;
</h3><h3> s:=s+t;
</h3><h3> end;
</h3><h3> r:=s/k;
</h3><h3> if a[k+1 div 2]>r then writeln('Yes') else writeln('No');
</h3><h3>end.
</h3><h3 />
program summation;
var i, summa: Word;
begin
summa := 0;
for i := 1 to 10 do
summa := summa + i;
WriteLn('l + 2 + .+ 10 = ', summa);
end.
Program Mas;
Var a:array[1..100] of integer;
i, n: integer;
Begin randomize;
writeln('Введите размерность массива',n);
readln(n);
for i:=1 to n do
a[i]:=random(45)-1; readln;
for i:=1 to n do
begin if a[i]>15 then
write(' ',a[i]);
end;
readln;
End.
Нет это только с интернетом