Помогите пожалуйста с паскалем((

[nikitaong]

Помогите пожалуйста)
2 изображение это функция.

[type_Oleg]

Подсказка:
1) главная диагональ - это те элементы матрицы, у которых i=j
То есть: a[i,i]=i*sin(2*i)-cos(i-i) = i*sin(2*i)- 1
2) в любом Паскале есть функции Exp, Sqrt, Sin.

И что непонятно? В первой задаче все вычисления - всего две строки, во второй - одна.

[nikitaong]

program primer;
var
j,i,n:integer;
a: array [1..10,1..10] of real;
Sum:real;
begin
writeln('Введите число n (n<=10)');
readln(A);
writeln('Введите по ',n,' элементов ');
for i:=1 to n do begin
write(i,' строки : ');
for j:=1 to n do read(a[i,j]);
end;
Sum:=0;
for i:=1 to n do begin
Sum:=Sum+a[i,i];
end;
writeln;
writeln('Ответ');
writeln('Cумма элементов главной диагонали ',Sum);
end.
а дальше что?

[type_Oleg]

У вас в 1) написано .. элемены которой определяются по формуле , а не вводятся с клавиатуры .
Зачем вы их вводите ( read(a[i,j]) ) ? Вычисляйте по формуле.
И наверное, вся матрица сама по себе не нужна, просто нужную сумму посчитать надо.
И размер n не надо вводить. Задано же 10.

[nikitaong]

нужно подставить формулу вместо read(a[i,j])?

[type_Oleg]

Да. Вы пробуйте, у вас Pascal установлен?

По второй задаче - как я понял, надо просто описать функцию, раз не сказано при каких x вычислять.

function eexe(x:Real):Real;
begin
 eexe:=Exp(x)+Exp(-x*x)+x*Exp(Sqrt(x+Sin(x)));
end;

Кстати, у Sin аргумент должен быть в радианах. Ну, раз ничего не сказано, значит и у вас он в радианах.