Проверьте программу на ошибки

[nikitaong]

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

[ZX Spectrum-128]

a[i,i]=i*sin(2*i)-cos(i-i)

Компилятор не ругался тут?

[type_Oleg]

Это то же задание?
Зачем это ?

writeln('Введите число n (n<=10)');
 readln(n);
 writeln('Введите по ',n,' элементов ');

Зачем это ?

write(i,' строки : ');

Вы просто скопировали мою строку ?

a[i,i]=i*sin(2*i)-cos(i-i)

Я писал просто формулу. Угадайте, каких двух символов здесь не хватает, чтобы это стало оператором Паскаля.
Кстати, cos(i-i)=cos(0)=1

А что, нельзя было в одном цикле и считать a[i,i] и суммировать их?

[nikitaong]

я врубиться не могу как сделать((

[type_Oleg]

Сообщение от nikitaong

я врубиться не могу как сделать((

a[i,i]:=i*sin(2*i)-cos(i-i);

Остальное можете не менять. Считать будет, а про все ваши лишние wrire, read , про cos(i-i) пусть у вас препод спрашивает.

Судя по всему, вы - шаолиньский монах, давший обет ни разу не брать в руки никакого справочника по Паскалю.