Var
a: array[-10..10] of real;
i: integer;
begin
for i := -10 to 10 do begin
Read(a[i]);
a[i] := a[i] / 10;
Write(a[i]+' ');
end;
end.
Program pow2;
var
n: integer;
begin
write('n = ');
readln(n);
writeln(exp(ln(2) * n));
end.
K:=1;
f:=1;
while k<=n do
begin
f:=f*k;
<span>k:=k+1;
end;</span>
у меня также только я 2 получила из-за старой училки
С четными номерами:
const N = 10;
var
a: array[1..N] of integer;
i, s: integer;
begin
for i:=1 to n do
readln(a[i]);
s := 0;
for i:=1 to n do
if i mod 2 = 0 then
s := s + a[i];
writeln(s);
end.
С нечетными номерами:
const N = 10;
var
a: array[1..N] of integer;
i, s: integer;
begin
for i:=1 to n do
readln(a[i]);
s := 0;
for i:=1 to n do
if i mod 2 = 1 then
s := s + a[i];
writeln(s);
end.