var
n : integer;
s : real;
begin
write('введите n ');
readln(n);
for var i := 10 to n do s += 1/i;
writeln('s = ', s);
end.
n должно быт n >= 10
<span>a = (x ^ 2 - x * y)/(0.7 * sin (Log(abs(x))))</span>
<span>Две скобки не хватает.</span>
Апрель май июнь июль значит май
Var
a:array[1..10] of integer;
i,c:integer;
Begin
for i:= 1 to 10 do Begin
write('Введите ',i,' - ый элемент массива ');
readln(a[i]);
End;
Write('Индексы элементов, больших 5 - (');
for i:= 1 to 10 do
if a[i]>5 then Begin
write(i,' '); c:=1;
end;
if c=0 then write('Таких нет)') else write(')');
end.
Я думаю, что ответ А. Я бы так ответил. Поскольку В и С антивирусы, а С вообще не подходит.