Нужен о написать программу в Pascal, помогите пожалуйста

Question

Нужен о написать программу в Pascal, помогите пожалуйста

---

Answer 1

var

n,i: integer;

s: double;

begin

readln(n);

for i:=1 to n do

 s:=s+(1/i**3);

write(s);

end.

Comments

В программе ошибку выдаёт(

---

Странно у меня все работает, можешь ошибку скинуть?

---

Ты на freepascal?

---

Если на freepascal то вотuses math;varn,i: integer;s: double;beginreadln(n);for i:=1 to n do s:=s+(1/i**3);write(s:2:5);end.

---

Скачала другой, все заработало, спасибо)

---

Можешь ещё с одной программой помочь пожалуйста?) Дана квадратная матрица. Найти сумму главной диагонали и вычесть полученное число из всех элементов матрицы, больших данной суммы

---

varn,i,j, sum: integer;mas: array[1..100,1..100] of integer;beginsum:=0;readln(n);for i:=1 to n dobegin for j:=1 to n do read(mas[i,j]); readln;end;for i:=1 to n do inc(sum, mas[i,i]);for i:=1 to n do for j:=1 to n do if (mas[i,j]>sum) then dec(mas[i,j], sum);writeln('Вывод');for i:=1 to n dobegin for j:=1 to n do write(mas[i,j], ' '); writeln;end;end.

---

Если я конечно все правильно понял..