Function root(m,n :integer) :real;
begin
root := exp(ln(m)/n)
end;
// корень n степени из числа m
I=1 s=0+1*1=1
i=2 s=1+2*2=5
i=3 s=5+3*3=14
i=4 s=14+4*4=30
i=5 s=30+5*5=55
Ответ: s=55
Var s:string;
ar:array[1..10] of integer;
f:text;
i:integer;
begin;
for i:=1 to 10 do
readln(ar[i]);
assign(f,'text.txt');
rewrite(f);
for i:=1 to 10 do
begin;
str(ar[i],s);
write(f,s,' ');
end;
close(f);
<span>end.</span>
Const n=10;
var a:array[1..n] of integer;
i:integer;
begin
Randomize;
for i:=1 to n do begin
a[i]:=random(51);
write(a[i]:3);
end;
writeln;
writeln('Пары соседних элементов с суммой > 50:');
for i:=2 to n do
if a[i-1]+a[i]>50 then writeln(a[i-1]:3,' ',a[i]);
end.
Пример:
12 34 23 1 12 3 1 42 30 36
Пары соседних элементов с суммой > 50:
34 23
42 30
30 36